Micom Basic 1995 October/CD [BM9510].bin/programs/lotus/lotus001.dsk/MACROS/AMIMENUS.SMM

INI File | 1994-08-11 | 69.5 KB | 4,197 lines

[ver]
    4
[sty]
    jdefault.sty
[files]
[charset]
    82
    SHIFTJIS (Windows)
[revisions]
    0
[prn]
    PostScript Printer
[port]
    LPT1:
[lang]
    1
[fldnames]
    ╠¿░┘─▐1
    ╠¿░┘─▐2
    ╠¿░┘─▐3
    ╠¿░┘─▐4
    ╠¿░┘─▐5
    ╠¿░┘─▐6
    ╠¿░┘─▐7
    ╠¿░┘─▐8
[desc]
    ▒╨╠▀█╥╞¡░é╠╢╜└╧▓╜▐
    Lotus Word Processing Division
    Advanced
    Define, AddMenu
    NoAutorun
    775525113
    98
    668987187
    1863
    22
    0
    0
    0
    0






    0
[fopts]
    0
    1
    0
    0
[lnopts]
    2
    Body Text
    1
[docopts]
    5
    2
[GramStyle]

[ParaNum]
    1
[l1]
    0
[pg]
    22
    41 0 5 512 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
    101 0 11 0 0 1 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
    109 0 17 512 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
    168 0 10 0 0 1 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
    219 0 17 512 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
    254 0 17 512 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
    315 0 46 0 0 1 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
    368 0 17 512 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
    411 0 17 512 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
    434 0 17 512 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
    494 0 24 0 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
    551 0 21 0 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
    609 0 21 0 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
    666 0 25 0 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
    674 0 17 512 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
    698 0 5 512 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
    755 0 6 512 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
    799 0 17 512 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
    848 0 17 512 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
    906 0 3 0 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
    959 0 0 0 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
    978 0 10 1025 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
[edoc]
<:S+-1><:#226,9027>' CustMenu - Allow the user to add and delete menu item.sdeclare InitCombo(p1);

<:S+-1><:#226,9027>

<:S+-1><:#226,9027>' Now some handy defines for window messages.

<:S+-1><:#226,9027>define    MF_BYPOSITION    0x400

<:S+-1><:#226,9027>define    CB_SETCURSEL    0x40E

<:S+-1><:#226,9027>define    CB_GETCURSEL    0x407

<:S+-1><:#226,9027>

<:S+-1><:#226,9027>' Define Macros to actually make the Windows calls.

<:S+-1><:#226,9027>

<:S+-1><:#226,9027>define GetActiveWindow()

<:S+-1><:#226,9027>    DllCall("user,GetActiveWindow,H")

<:S+-1><:#226,9027>define    GetMenu(hWnd)

<:S+-1><:#226,9027>    DllCall("user,GetMenu,HH", %1)

<:S+-1><:#226,9027>define    GetMenuString(hMenu, offset, namep, max, flag)

<:S+-1><:#226,9027>    DllCall("user,GetMenuString,HHHFHH", %1, %2, %3, %4, %5)

<:S+-1><:#226,9027>define    GetMenuItemCount(hMenu)

<:S+-1><:#226,9027>    DllCall("user,GetMenuItemCount,HH", %1)

<:S+-1><:#226,9027>define    GetParent(hWnd)

<:S+-1><:#226,9027>    DllCall("user,GetParent,HH", %1)

<:S+-1><:#226,9027>define    GetSubMenu(hMenu, pos)

<:S+-1><:#226,9027>    DllCall("user,GetSubMenu,HHH", %1, %2)

<:S+-1><:#226,9027>Define    Dllname    "User"

<:S+-1><:#226,9027>' Now functions we call

<:S+-1><:#226,9027>declare ComboCallBack(p1, p2, p3);

<:S+-1><:#226,9027>declare LocateHmenu(p1);

<:S+-1><:#226,9027>Declare FindMenu(p1, p2)

<:S+-1><:#226,9027>declare LoadTheBox(p1, p2)

<:S+-1><:#226,9027>declare FindAutoExec();

<:S+-1><:#226,9027>declare AddAccelStuff(p1, p2);

<:S+-1><:#226,9027>declare ShowAccel(p1);

<:S+-1><:#226,9027>declare DetermineAccel();

<:S+-1><:#226,9027><:>declare AddAccelerator<:>(amifuncnt, amifuns, menuids)

<:S+-1><:#226,9027>declare    LoadMenus(p1)

<:S+-1><:#226,9027>declare LoadAmiFuns(p1, p2)

<:S+-1><:#226,9027>declare GetAmiPro(p1, p2)

<:S+-1><:#226,9027>declare GetMacro()

<:S+-1><:#226,9027><:><:>declare AddToAutoexec(p1, p2, p3, p4, p5, p6, p7)

<:S+-1><:#226,9027>declare    AddItem(p1, p2, p3, p4, p5, p6)

<:S+-1><:#226,9027>declare DelMenu(p1)

<:S+-1><:#226,9027>declare Rmctrl(p1)

<:S+-1><:p<* >>

<:S+-1><:ZCustMenu>FUNCTION CustMenu<:Z~CustMenu>()

<:S+-1>dim    menus(20)            ' Where to store the standard menu names

<:S+-1>dim    amifuns(200)            ' Where to store ami function names

<:S+-1>dim    menuids(200)            ' and there corresponding menuids

<:S+-1>nOpenFiles = GetOpenFileCount()

<:S+-1>if nOpenFiles <;> 0

<:S+-1>    dim sFiles(nOpenFiles)

<:S+-1>    GetOpenFileNames(&sFiles)

<:S+-1>    for i = 1 to nOpenFiles

<:S+-1>        for pos = len(sFiles(i)) to 1 step -1

<:S+-1>            if Mid$(sFiles(i), pos, 1) = "\"

<:S+-1>                break

<:S+-1>            endif

<:S+-1>        next

<:S+-1>        if Right$(sFiles(i), len(sFiles(i)) - pos) = "AUTOEXEC.SMM"

<:S+-1>            message("AUTOEXEC.SMM é¬âIü[âvâôé│éΩé─éóéΘé╠é┼Ä└ìsé┼é½é▄é╣é±", "âGâëü[")

<:S+-1>            Exit Function

<:S+-1>        endif

<:S+-1>    next

<:S+-1>endif

<:S+-1><:><:>menucnt = LoadMenus(&menus)    ' Get the menu names

<:S+-1>amifuncnt  = LoadAmiFuns(&amifuns, &menuids)    ' And the amipro functions

<:S+-1>AllocGlobalVar("kanjimenu", 1)

<:S+-1>SetGlobalVar("kanjimenu", GetProfileString$("windows", "kanjimenu", "win.ini"))

<:S+-1>StatusBarMsg("")

<:S+-1>defstr    stat;

<:S+-1>for i = 1 to menucnt - 1

<:S+-1>    FillEdit(8000, RmCtrl(menus(i)))

<:S+-1>next

<:S+-1>AllocGlobalVar("numitem", 1)

<:S+-1>' Load the list box with the menus for them to choose

<:S+-1>While (1 << Assign(&stat, DialogBox("." "PickMenu")))     'Loop here until OK or Cancel

<:S+-1>    menuname = GetDialogField$(9000)

<:S+-1>    pos = Instr(0, menuname, "(") - 1

<:S+-1>    for i = 1 to menucnt - 1

<:S+-1>        if left$(menuname, pos) = left$(menus(i), pos)

<:S+-1>            menuname = menus(i)

<:S+-1>            break

<:S+-1>        endif

<:S+-1>    next

<:S+-1>

<:S+-1>    if ("" != menuname)                    'Make sure they picked something

<:S+-1>        ' Now determine which button caused the box to close.

<:S+-1>        switch stat

<:S+-1>            case 5

<:S+-1><:><:><:><:>            hourglass(1)

<:S+-1>            AddItem(menuname, amifuncnt, &amifuns, &menuids, menucnt, &menus)

<:S+-1><:><:><:><:>            hourglass(0)

<:S+-1>            break

<:S+-1>            case 6

<:S+-1><:><:><:><:>            hourglass(1)

<:S+-1>            DelMenu(menuname)

<:S+-1><:><:><:><:>            hourglass(0)

<:S+-1>            break;

<:S+-1>            case 7

<:S+-1><:><:><:><:>            hourglass(1)

<:S+-1><:#242,9027>            AddAccelerator(amifuncnt, &amifuns, &menuids)

<:S+-1><:#242,9027><:><:><:><:>            hourglass(0)

<:S+-1><:#242,9027>            break;

<:S+-1><:#242,9027>        endswitch

<:S+-1>    endif

<:S+-1>    for i = 1 to menucnt - 1

<:S+-1>        FillEdit(8000, RmCtrl(menus(i)))

<:S+-1>    next

<:S+-1><:><:><:><:>wend

<:S+-1>FreeGlobalVar("numitem")

<:S+-1>FreeGlobalVar("kanjimenu")

<:S+-1>END FUNCTION<:p<* >>

<:S+-1>' AddItem - This macro will add either an AmiPro function or macro to any of the standard

<:S+-1>'    menus.    Because we can not pass anything to our callback routines we will keep

<:S+-1>'    the information in global variables.

<:S+-1>define    POSVAR    "Cust1"        ' Currently selected position

<:S+-1>define    GHMENU    "Cust2"        ' Handle the menu in question.

<:S+-1>

<:S+-1><:ZAddItem>FUNCTION AddItem<:Z~AddItem>(menuname, amifuncnt, amifuns, menuids, menucnt, menus)

<:S+-1>menuid = 0                ' initialize all our variables

<:S+-1>macroname = ""

<:S+-1>itemname = ""

<:S+-1>action = ""

<:S+-1>Helptext = ""

<:S+-1>temp = ""

<:S+-1>itemnum = 0

<:S+-1>pos = 0

<:S+-1>accel = 0

<:S+-1>hmenu = 0;

<:S+-1>AllocGlobalVar(POSVAR, 1)

<:S+-1>AllocGlobalVar(GHMENU, 1)

<:S+-1>SetGlobalVar(POSVAR, 0)            ' Position 0 indicates none selected (add to end)

<:S+-1>SetGlobalVar(GHMENU, LocateHmenu(menuname));    ' get hMenu and save

<:S+-1>stat = 2                    ' Set stat so we execute dlgbox at least once

<:S+-1>while (stat != 0 and stat != 1)        ' Do this till they cancel or ok it.

<:S+-1>    FillEdit(1003, menuname)    ' Show em what we know so far.

<:S+-1>    FillEdit(1005, action)

<:S+-1>    FillEdit(8000, itemname)

<:S+-1>    FillEdit(8001, helptext)

<:S+-1>    FillEdit(8002, pos)

<:S+-1>    ShowAccel(accel)

<:S+-1>    ' For the "Insert Before Item" we really want to know what position on the menu to

<:S+-1>    ' insert the new item.  We use a call back to simply determine which item was

<:S+-1>    ' selected.  We dont sort the box so the CB_GETCURSEL will return the position

<:S+-1>    ' we are intereted in.  Also we will use the special callback id == 0 to load this box.

<:S+-1>    SetDlgCallBack(0, strcat$(GetRunningMacroFile$(), "!InitCombo"))

<:S+-1><:><:>    SetDlgCallBack(9500, strcat$(GetRunningMacroFile$(),"!ComboCallback"))

<:S+-1>    if (0 != Assign(&stat, DialogBox(".", "additem")))

<:S+-1>        itemname = GetDialogField$(8000)    ' extract the item

<:S+-1>        helptext = GetDialogField$(8001)    ' and help text

<:S+-1>        pos = GetGlobalVar$(POSVAR)    ' get position from the global var

<:S+-1>        if pos = 0

<:S+-1>            pos = GetGlobalVar$("numitem")

<:S+-1>        endif

<:S+-1>        accel = DetermineAccel()

<:S+-1>    endif

<:S+-1>    ' Now determine which button they pushed.

<:S+-1>    switch stat

<:S+-1>        case 4                    ' Select macro

<:S+-1>            if ("" != Assign(&temp, GetMacro()))        ' Pick a macro

<:S+-1>                macroname = temp    ' yes update it

<:S+-1>                action = macroname

<:S+-1>                menuid = 0        ' And zero the menuid

<:S+-1>            endif

<:S+-1>        case 3                    ' AmiPro Function

<:S+-1>            if (0 != Assign(&itemnum, GetAmiPro(&amifuns, amifuncnt)))

<:S+-1>                macro = ""

<:S+-1><:#242,9027>                menuid = *menuids(itemnum)

<:S+-1><:#242,9027>                action = *amifuns(itemnum)

<:S+-1><:#242,9027>            endif

<:S+-1><:#242,9027>    endswitch

<:S+-1>wend

<:S+-1>FreeGlobalVar(POSVAR);

<:S+-1>FreeGlobalVar(GHMENU);

<:S+-1>

<:S+-1>' If they have entered all information, make it take effect, then see if they want to make

<:S+-1>' it permanent.

<:S+-1>'

<:S+-1>if ((stat) and (menuname != "") and ((menuid != 0) or (macroname != "")))

<:S+-1>    if (accel)        ' if they made this an accelerator, add it to the itemname

<:S+-1>        itemname = AddAccelStuff(itemname, accel)

<:S+-1>    endif

<:S+-1>    if (menuid != 0)        ' AmiPro Function?

<:S+-1>        if (0 = pos)

<:S+-1>            AddMenuItem(1, menuname, itemname, menuid)

<:S+-1>        else

<:S+-1>            InsertMenuItem(1, menuname, pos - 1, itemname, menuid)

<:S+-1>        endif

<:S+-1>        if (accel)

<:S+-1>            if getopenfilecount() << 1

<:S+-1>                sty = GetProfileString$("AmiPro", "defstyle", "amipro.ini")

<:S+-1>                if sty = ""

<:S+-1>                    sty = "Jdefault.sty"

<:S+-1>                endif

<:S+-1>                new(sty, 0, 0)

<:S+-1>            endif

<:S+-1>            Onkey(accel, menuid, "")

<:S+-1>        endif

<:S+-1>    else

<:S+-1>        if (0 = pos)

<:S+-1>            AddMenuItem(1, menuname, itemname, macroname, helptext)

<:S+-1>        else

<:S+-1>            InsertMenuItem(1, menuname, pos - 1, itemname, macroname, helptext)

<:S+-1>        endif

<:S+-1>        if (accel)

<:S+-1>            if getopenfilecount() << 1

<:S+-1>                sty = GetProfileString$("AmiPro", "defstyle", "amipro.ini")

<:S+-1>                if sty = ""

<:S+-1>                    sty = "Jdefault.sty"

<:S+-1>                endif

<:S+-1>                new(sty, 0, 0)

<:S+-1>            endif

<:S+-1>            OnKey(accel, 0, macroname)

<:S+-1>        endif

<:S+-1>    endif

<:S+-1>    if (Decide("ăé╠âZâbâVâçâôé╔É▌ÆΦé≡é╠é▒é╡é▄é╖é⌐"))

<:S+-1><:><:><:><:>        AddToAutoexec(menuname, itemname, menuid, macroname, helptext, pos, accel)

<:S+-1>    endif

<:S+-1>elseif (1 = stat)        ' did they say ok but not specify enough stuff

<:S+-1>    Message("òKùvé╚Åεò±é¬é▌é┬é⌐éΦé▄é╣é±é┼é╡é╜üB")

<:S+-1>endif

<:S+-1>END FUNCTION<:p<* >>

<:S+-1><:#242,9027>' ComboCallBack - This gets called when the user has selected an item from the combo box.

<:S+-1><:#242,9027>'    we simply ask the combo box which one got selected, then we save that offset into

<:S+-1><:#242,9027>'    our global array.

<:S+-1><:#242,9027><:ZComboCallBack>FUNCTION ComboCallBack(hDlg, id, text)<:Z~ComboCallBack>

<:S+-1><:#242,9027>hCtrl = GetDlgItem(hDlg, id)                ' Need HWND of the combo box

<:S+-1><:#242,9027>off= AppSendMessage(hCtrl, CB_GETCURSEL, 0, 0)    ' Ask him

<:S+-1><:#242,9027>SetGlobalVar(POSVAR, off)                    ' Save it

<:S+-1><:#242,9027>END FUNCTION

<:S+-1><:#242,9027>'

<:S+-1><:#484,9027>' InitCombo - this is called before the dialog box is pulled up (SetDlgCallBack(0, InitCombo))

<:S+-1><:#242,9027>'    We get the menu handle from the global variale, then using windows calls, load the

<:S+-1><:#242,9027>'    combo box with items from that menu.

<:S+-1><:#242,9027><:ZInitCombo>FUNCTION InitCombo(hDlg)<:Z~InitCombo>

<:S+-1><:#242,9027><:><:>defstr    menuname;

<:S+-1><:#242,9027>hMenu = GetGlobalVar$(GHMENU)        ' Retrieve the handle to menu

<:S+-1><:#242,9027>SetDlgItemtext(hDlg, 9500, "")        ' Set a blank one at top

<:S+-1><:#242,9027>nitem = 1

<:S+-1><:#242,9027>menucnt = GetMenuItemCount(hMenu)    ' Determin how many are on the menu

<:S+-1><:#242,9027>for i = 0 to menucnt - 1

<:S+-1><:#242,9027>    GetMenuString(hMenu, i, &menuname, 80, MF_BYPOSITION)

<:S+-1><:#242,9027>    if (0 << len(menuname))

<:S+-1><:#242,9027>        sec = asc(mid$(menuname, 2, 1))

<:S+-1><:#484,9027>        if left$(menuname, 1) != "&" or sec << 0x31 or sec <;> 0x39 or mid$(menuname, 3, 1) != " "

<:S+-1><:#242,9027>            SetDlgItemText(hDlg, 9500,  Rmctrl(menuname))

<:S+-1><:#242,9027>            nitem = nitem + 1

<:S+-1><:#242,9027>        endif

<:S+-1><:#242,9027>    else

<:S+-1><:#242,9027>        SetDlgItemText(hDlg, 9500, "------------------------------------")

<:S+-1><:#242,9027>        nitem = nitem + 1

<:S+-1><:#242,9027>    endif

<:S+-1><:#242,9027>next

<:S+-1><:#242,9027>SetGlobalVar("numitem", nitem)

<:S+-1><:#242,9027>' finally select one by position.

<:S+-1><:#242,9027>AppSendMessage(GetDlgItem(hDlg, 9500), CB_SETCURSEL, GetGlobalVar$(POSVAR), 0)

<:S+-1>END FUNCTION<:p<* >>

<:S+-1>

<:S+-1>' AddAccelerator - Get either an amipro function or macro, and a key then make it an

<:S+-1>'    accelerator.

<:S+-1>'

<:S+-1><:>FUNCTION <:ZAddAccelerator>AddAccelerator<:Z~AddAccelerator><:>(amifuncnt, amifuns, menuids)

<:S+-1>menuid = 0

<:S+-1>macroname = ""

<:S+-1>action = ""

<:S+-1>itemnum = 0

<:S+-1>accel = 0

<:S+-1>temp = ""

<:S+-1>stat = 2

<:S+-1>while (stat != 0 and stat != 1)        ' Do this till they cancel or ok it.

<:S+-1>    FillEdit(1005, action)

<:S+-1><:><:>    ShowAccel(accel)

<:S+-1>    if (0 != Assign(&stat, DialogBox(".", "addaccel")))

<:S+-1><:><:>        accel = DetermineAccel()

<:S+-1>    endif

<:S+-1>    switch stat

<:S+-1>        case 4                    ' They push the select macro

<:S+-1>            if ("" != Assign(&temp, GetMacro()))        ' Pick a macro

<:S+-1>                macroname = temp    ' yes update it

<:S+-1>                action = macroname

<:S+-1>                menuid = 0        ' And zero the menuid

<:S+-1>            endif

<:S+-1>        case 3                    ' AmiPro Function

<:S+-1>            if (0 != Assign(&itemnum, GetAmiPro(&amifuns, amifuncnt)))

<:S+-1>                macro = ""

<:S+-1>                menuid = *menuids(itemnum)

<:S+-1>                action = *amifuns(itemnum)

<:S+-1>            endif

<:S+-1>    endswitch

<:S+-1>wend

<:S+-1>

<:S+-1>if ((stat) and (accel != 0) and ((menuid != 0) or (macroname != "")))

<:S+-1>    if getopenfilecount() << 1

<:S+-1>        sty = GetProfileString$("AmiPro", "defstyle", "amipro.ini")

<:S+-1>        if sty = ""

<:S+-1>            sty = "Jdefault.sty"

<:S+-1>        endif

<:S+-1>        new(sty, 0, 0)

<:S+-1>    endif

<:S+-1>    if (menuid != 0)

<:S+-1>        Onkey(accel, menuid, "")

<:S+-1>    else

<:S+-1>        OnKey(accel, 0, macroname)

<:S+-1>    endif

<:S+-1>    if (Decide("é▒é╠É▌ÆΦé≡ò█æ╢é╡é─éµéδé╡éóé┼é╖é⌐"))

<:S+-1><:><:><:><:><:><:>        AddToAutoexec(0, 0, menuid, macroname, 0, 0, accel)

<:S+-1>    endif

<:S+-1>elseif (1 = stat)        ' did they say ok but not specify enough stuff

<:S+-1>    Message("òKùvé╚Åεò±é¬î⌐é┬é⌐éΦé▄é╣é±")

<:S+-1>endif

<:S+-1>END FUNCTION

<:S+-1>

<:S+-1>' DetermineAccel - turn the letter and the shift state check boxes into a number.

<:S+-1>

<:S+-1><:#242,9027><:ZDetermineAccel>FUNCTION DetermineAccel()<:Z~DetermineAccel>

<:S+-1><:#242,9027>defstr    fkey;

<:S+-1><:#242,9027>accel = 0                    ' Assume they did not hit any thing

<:S+-1><:#242,9027>key = GetDialogField$(8003)            ' Get the letter

<:S+-1>if ("" != key)                    ' they type something?

<:S+-1>    if (1 = len(key))            ' Single letter?

<:S+-1>                            ' The UCase is necessary because what

<:S+-1>                            ' we really want is the virtual key.

<:S+-1>        accel = asc(UCase$(Left$(key, 1)));    ' Yes, turn it into a virtual key

<:S+-1>    else

<:S+-1>        ' We only accept function keys here, they must be of the form "Fx" where the

<:S+-1>        ' x is 1 - 12.  So first make sure that the first letter is a F.

<:S+-1>        ' Then make sure the rest of it is numeric.  While we have it use assign to

<:S+-1>        ' set fkey to that value.

<:S+-1>        if ("F" = UCase$(Left$(key, 1)))

<:S+-1>        AND IsNumeric(Assign(&fkey, Right$(key, Len(key) - 1)))

<:S+-1>            ' Set accel to the virtual key F0.  NOTE the BracketsToBin is

<:S+-1>            ' necessary because asc returns the value of the first character of its

<:S+-1>            ' input.  Since there is no F0, assign it to F1 then subtract 1.

<:S+-1>            accel = asc(BracketsToBin("<[>F1]")) - 1

<:S+-1>            accel = accel + fkey;            ' Bump it up to the proper value

<:S+-1>        else

<:S+-1>            Message("û│î°é╚╖░é┼é╖üB╖░é═Aé⌐éτZüAéαé╡é¡é═F1é⌐éτF12é▄é┼é┼ôoÿ^é╡é─é¡é╛é│éó");

<:S+-1>            return 0;

<:S+-1>        endif

<:S+-1>    endif

<:S+-1>    if (GetDialogField$(21))        ' Now add in the shift states.

<:S+-1>        accel = accel | 0x4000;

<:S+-1>        endif

<:S+-1>    if (GetDialogField$(22))

<:S+-1>        accel = accel | 0x1000;

<:S+-1>    endif

<:S+-1>    if (GetDialogField$(23))

<:S+-1>        accel = accel | 0x2000;

<:S+-1>    endif

<:S+-1>endif

<:S+-1>

<:S+-1>return accel;

<:S+-1>END FUNCTION

<:S+-1>'

<:S+-1>' ShowAccel - given the accelerate prime the dialog box.

<:S+-1>

<:S+-1><:ZShowAccel>FUNCTION ShowAccel(accel)<:Z~ShowAccel>

<:S+-1>if (0 != accel)

<:S+-1>    FillEdit(21, accel & 0x4000);        ' Set the check boxes for ctrl, shift and alt

<:S+-1>    FillEdit(22, accel & 0x1000);

<:S+-1>    FillEdit(23, accel & 0x2000);

<:S+-1>    accel = accel & 0xff;            ' Strip off the shift states.

<:S+-1>    lowf = asc(BracketsToBin("<[>f1]"))    ' Get virtual key for F1.

<:S+-1>    if (lowf <<= accel AND accel <<= (lowf + 12))

<:S+-1>        ' Create the "Fx" using strcat$.

<:S+-1>        FillEdit(8003, strcat$("F", chr$(0x31 + (accel - lowf))))

<:S+-1>    else

<:S+-1>        FillEdit(8003, chr$(accel))

<:S+-1>    endif

<:S+-1>endif

<:S+-1>END FUNCTION<:p<* >>

<:S+-1><:#242,9027>

<:S+-1><:#242,9027>' AddAccelStuff - given the itemname (what will show on the menu) add in a accelerator

<:S+-1><:#242,9027>'    key of the form CTRL+Z or ALT+F4

<:S+-1><:#242,9027>

<:S+-1><:#242,9027><:ZAddAccelStuff>FUNCTION AddAccelStuff(itemname, accel)<:Z~AddAccelStuff>

<:S+-1><:#242,9027>shift = "";

<:S+-1><:#242,9027>if (accel & 0x4000)

<:S+-1><:#242,9027>    shift = strcat$(shift, "Ctrl+")

<:S+-1><:#242,9027>endif

<:S+-1><:#242,9027>if (accel & 0x1000)

<:S+-1><:#242,9027>    shift = strcat$(shift, "Shift+");

<:S+-1><:#242,9027>endif

<:S+-1><:#242,9027>if (accel & 0x2000)

<:S+-1><:#242,9027>    shift = strcat$(shift, "Alt+");

<:S+-1><:#242,9027>endif

<:S+-1><:#242,9027>accel = accel & 0xff;            ' Strip off the shift states.

<:S+-1><:#242,9027>lowf = asc(BracketsToBin("<[>f1]"))    ' Get virtual key for F1.

<:S+-1><:#242,9027>if (lowf <<= accel AND accel <<= (lowf + 12))

<:S+-1><:#242,9027>    ' Create the "Fx" using strcat$.

<:S+-1><:#242,9027>    text = strcat$("F", chr$(0x31 + (accel - lowf)))

<:S+-1><:#242,9027>else

<:S+-1><:#242,9027>    text = chr$(accel)

<:S+-1><:#242,9027>endif

<:S+-1><:#242,9027>shift = strcat$(shift, text);

<:S+-1><:#242,9027>return strcat$(itemname, "    ", shift);

<:S+-1><:#242,9027>END FUNCTION

<:S+-1><:#242,9027>

<:S+-1><:#242,9027>' :LoadMenus - fill the callers array with top level menu names

<:S+-1><:#242,9027>'

<:S+-1><:#242,9027>FUNCTION <:ZLoadMenus>LoadMenus<:Z~LoadMenus>(menus)

<:S+-1><:#242,9027>hmenu = getmenu(getactivewindow())

<:S+-1><:#242,9027>menucnt = GetMenuItemCount(hmenu)

<:S+-1><:#242,9027>defstr menuname;

<:S+-1><:#242,9027>a = 1

<:S+-1><:#242,9027>for i = 0 to menucnt - 1

<:S+-1><:#242,9027>    GetMenuString(hMenu, i, &menuname, 80, MF_BYPOSITION)

<:S+-1><:#242,9027>    if menuname <<<;> "" and menuname <<<;> ToMenuBinary$("│¿▌─▐│(\036W\037│)");

<:S+-1><:#242,9027>        *menus(a) = menuname;

<:S+-1><:#242,9027>        a = a + 1

<:S+-1><:#242,9027>    endif

<:S+-1><:#242,9027>next

<:S+-1><:#242,9027>return a

<:S+-1>END FUNCTION<:p<* >>

<:S+-1>'

<:S+-1>' GetMacro - put up the macro list dialog box, and let the user pick a macro.

<:S+-1>'     Return the macroname or a null string if they canceled out.

<:S+-1><:><:ZGetMacro>Function GetMacro<:Z~GetMacro><:>()

<:S+-1>onerror endit

<:S+-1>oncancel endit

<:S+-1>StatusBarMsg("Å¡é╡é¿æ╥é┐é¡é╛é│éó...")

<:S+-1>DOSchdir(GetMacPath$())        ' Change to macro directory before the dialogbox

<:S+-1>FillEdit(9001, "*.smm")

<:S+-1>StatusBarMsg("")

<:S+-1>if (1 = DialogBox(".", "macrolst"))

<:S+-1>

<:S+-1>    ' GetDialogField will only return the filename, we want the entire path, so

<:S+-1>    ' concatenate it with the current directory (the dialog box may have changed it)

<:S+-1>    ' then lowercase everything so it looks better in the top level dialog box.

<:S+-1>    macname = lcase$(strcat$(GetCurrentDir$(), GetDialogField$(8001)));

<:S+-1>else

<:S+-1>    macname = ""        ' cancel return null string.

<:S+-1>endif

<:S+-1>endit:

<:S+-1>return macname;

<:S+-1>StatusBarMsg("")

<:S+-1>END FUNCTION<:p<* >>

<:S+-1><:#226,9027>' LoadAmiFuns - open the control file and load the two arrays.

<:S+-1><:#452,9027>'     This control file contains one line entries, each havig two fields.  The first is a

<:S+-1><:#226,9027>'    description of the function, the next it the MenuId.

<:S+-1><:#226,9027>'

<:S+-1><:#226,9027><:ZLoadAmiFuns>FUNCTION LoadAmiFuns<:Z~LoadAmiFuns>(names, menuids)

<:S+-1><:#226,9027>onerror endit

<:S+-1><:#226,9027>oncancel endit

<:S+-1><:#226,9027>StatusBarMsg("║▌─█░┘╠º▓┘é≡ô╟é▌ì₧é±é┼éóé▄é╖...")    ' Tell en to wait

<:S+-1><:#226,9027>*names(1) = "ÉVïK";

<:S+-1><:#226,9027>*menuids(1) = "101";

<:S+-1><:#226,9027>*names(2) = "èJé¡";

<:S+-1><:#226,9027>*menuids(2) = "102";

<:S+-1><:#226,9027>*names(3) = "ÅπÅæé½ò█æ╢";

<:S+-1><:#226,9027>*menuids(3) = "103";

<:S+-1><:#226,9027>*names(4) = "û╝æOé≡òté»é─ò█æ╢";

<:S+-1><:#226,9027>*menuids(4) = "104";

<:S+-1><:#226,9027>*names(5) = "ò╥ÅWöjèⁿ";

<:S+-1><:#226,9027>*menuids(5) = "105";

<:S+-1><:#226,9027>*names(6) = "Import/Export";

<:S+-1><:#226,9027>*menuids(6) = "107";

<:S+-1><:#226,9027>*names(7) = "èGé╠î─é╤Åoé╡";

<:S+-1><:#226,9027>*menuids(7) = "141";

<:S+-1><:#226,9027>*names(8) = "╠º▓┘è╟ù¥";

<:S+-1><:#226,9027>*menuids(8) = "108";

<:S+-1><:#226,9027>*names(9) = "ò╢ÅæÅεò±";

<:S+-1><:#226,9027>*menuids(9) = "109";

<:S+-1><:#226,9027>*names(10) = "ò╢ÅæÅεò±╠¿░┘─▐û╝ò╧ìX";

<:S+-1><:#226,9027>*menuids(10) = "125";

<:S+-1><:#226,9027>*names(11) = "Links";

<:S+-1><:#226,9027>*menuids(11) = "115";

<:S+-1><:#226,9027>*names(12) = "ê╢û╝ê≤ìⁿ";

<:S+-1><:#226,9027>*menuids(12) = "110";

<:S+-1><:#226,9027>*names(13) = "ê≤ìⁿ";

<:S+-1><:#226,9027>*menuids(13) = "111";

<:S+-1><:#226,9027>*names(14) = "╠▀╪▌└É▌ÆΦ";

<:S+-1><:#226,9027>*menuids(14) = "112";

<:S+-1><:#226,9027>'*names(15) = "AmiPro é╠ÅIù╣";

<:S+-1>*names(15) = "▒╨╠▀█é╠ÅIù╣";

<:S+-1><:#226,9027>*menuids(15) = "113";

<:S+-1><:#226,9027>*names(16) = "╕▐┘░╠▀ò╢Åæ";

<:S+-1><:#226,9027>*menuids(16) = "146";

<:S+-1><:#226,9027>*names(17) = "î│é╔û▀é╖";

<:S+-1><:#226,9027>*menuids(17) = "151";

<:S+-1><:#226,9027>*names(18) = "É╪éΦĵéΦ";

<:S+-1><:#226,9027>*menuids(18) = "153";

<:S+-1><:#226,9027>*names(19) = "║╦▀░";

<:S+-1><:#226,9027>*menuids(19) = "154";

<:S+-1><:#226,9027>*names(20) = "ô\éΦòté»";

<:S+-1><:#226,9027>*menuids(20) = "155";

<:S+-1><:#226,9027>*names(21) = "Paste Link";

<:S+-1><:#226,9027>*menuids(21) = "157";

<:S+-1><:#226,9027>*names(22) = "ô·òtæ}ôⁿ";

<:S+-1><:#226,9027>*menuids(22) = "158";

<:S+-1><:#226,9027>*names(23) = "Footnotes";

<:S+-1><:#226,9027>*menuids(23) = "160";

<:S+-1><:#226,9027>*names(24) = "├▐╠½┘─";

<:S+-1><:#226,9027>*menuids(24) = "162";

<:S+-1>*names(25) = "═▀░╝▐æSæ╠";

<:S+-1>*menuids(25) = "201";

<:S+-1>*names(26) = "ÄwÆΦ╗▓╜▐";

<:S+-1><:#242,9027>*menuids(26) = "202";

<:S+-1><:#242,9027>*names(27) = "òWÅÇ╗▓╜▐";

<:S+-1><:#242,9027>*menuids(27) = "203";

<:S+-1><:#242,9027>*names(28) = "ègæσ╗▓╜▐";

<:S+-1><:#242,9027>*menuids(28) = "204";

<:S+-1><:#242,9027>*names(29) = "î⌐èJé½";

<:S+-1><:#242,9027>*menuids(29) = "212";

<:S+-1><:#242,9027>*names(30) = "┌▓▒│─╙░─▐";

<:S+-1><:#242,9027>*menuids(30) = "210";

<:S+-1><:#242,9027>*names(31) = "─▐╫╠─╙░─▐";

<:S+-1><:#242,9027>*menuids(31) = "211";

<:S+-1><:#242,9027>*names(32) = "ò\Ī╡╠▀╝«▌";

<:S+-1><:#242,9027>*menuids(32) = "206";

<:S+-1><:#242,9027>*names(33) = "┘░╫░ò\Ī";

<:S+-1><:#242,9027>*menuids(33) = "207";

<:S+-1><:#242,9027>*names(34) = "╜╧░─▒▓║▌ö±ò\Ī";

<:S+-1><:#242,9027>*menuids(34) = "109";

<:S+-1><:#242,9027>*names(35) = "ê╢û╝ê≤ìⁿ";

<:S+-1><:#242,9027>*menuids(35) = "237";

<:S+-1><:#242,9027>*names(36) = "╠½▌─";

<:S+-1><:#242,9027>*menuids(36) = "251";

<:S+-1><:#242,9027>*names(37) = "ò╢ÄÜæ╡éª";

<:S+-1><:#242,9027>*menuids(37) = "263";

<:S+-1><:#242,9027>*names(38) = "ìsè╘èu";

<:S+-1><:#242,9027>*menuids(38) = "252";

<:S+-1><:#242,9027>*names(39) = "òWÅÇ";

<:S+-1><:#242,9027>*menuids(39) = "253";

<:S+-1><:#242,9027>*names(40) = "æ╛ÄÜ";

<:S+-1><:#242,9027>*menuids(40) = "254";

<:S+-1><:#242,9027>*names(41) = "Ä╬æ╠";

<:S+-1><:#242,9027>*menuids(41) = "255";

<:S+-1><:#242,9027>*names(42) = "ë║Éⁿ";

<:S+-1><:#242,9027>*menuids(42) = "256";

<:S+-1><:#242,9027>*names(43) = "ÆPîΩë║Éⁿ";

<:S+-1><:#242,9027>*menuids(43) = "256";

<:S+-1><:#242,9027>*names(44) = "æσò╢ÄÜ/żò╢ÄÜ";

<:S+-1><:#242,9027>*menuids(44) = "264";

<:S+-1><:#242,9027>*names(45) = "ô┴ÄΩæ«É½";

<:S+-1><:#242,9027>*menuids(45) = "258";

<:S+-1><:#242,9027>*names(46) = "ÉVïK╜└▓┘ì∞ɼ";

<:S+-1><:#242,9027>*menuids(46) = "301";

<:S+-1><:#242,9027>*names(47) = "╜└▓┘ÅCÉ│";

<:S+-1><:#242,9027>*menuids(47) = "302";

<:S+-1><:#242,9027>*names(48) = "ò╩╜└▓┘╝░─Ägùp";

<:S+-1><:#242,9027>*menuids(48) = "304";

<:S+-1><:#242,9027>*names(49) = "╜└▓┘╝░─ò█æ╢";

<:S+-1><:#242,9027>*menuids(49) = "305";

<:S+-1><:#242,9027>*names(50) = "╜└▓┘è╟ù¥";

<:S+-1><:#242,9027>*menuids(50) = "303";

<:S+-1><:#242,9027>*names(51) = "╜└▓┘æIæ≡";

<:S+-1><:#242,9027>*menuids(51) = "306";

<:S+-1><:#242,9027>*names(52) = "╜└▓┘╬▐»╕╜ò\Ī";

<:S+-1><:#242,9027>*menuids(52) = "307";

<:S+-1><:#226,9027>*names(53) = "═▀░╝▐┌▓▒│─æ}ôⁿ";

<:S+-1><:#242,9027>*menuids(53) = "351";

<:S+-1><:#226,9027>*names(54) = "═▀░╝▐┌▓▒│─ÅCÉ│";

<:S+-1><:#226,9027>*menuids(54) = "352";

<:S+-1><:#226,9027>*names(55) = "═»└▐/╠»└";

<:S+-1><:#242,9027>*menuids(55) = "360";

<:S+-1><:#242,9027>*names(56) = "Tab Ruler";

<:S+-1><:#242,9027>*menuids(56) = "355";

<:S+-1><:#242,9027>*names(57) = "═▀░╝▐ö╘ìå";

<:S+-1><:#242,9027>*menuids(57) = "356";

<:S+-1><:#242,9027>*names(58) = "ìsö╘ìå";

<:S+-1><:#242,9027>*menuids(58) = "359";

<:S+-1><:#242,9027>*names(59) = "ëⁿìÇ";

<:S+-1><:#242,9027>*menuids(59) = "357";

<:S+-1><:#242,9027>*names(60) = "ÉVïKÿgì∞ɼ";

<:S+-1><:#242,9027>*menuids(60) = "409";

<:S+-1><:#242,9027>*names(61) = "ÿg┌▓▒│─ÅCÉ│";

<:S+-1><:#242,9027>*menuids(61) = "402";

<:S+-1><:#242,9027>*names(62) = "É}î`╗▓╜▐";

<:S+-1><:#242,9027>*menuids(62) = "403";

<:S+-1><:#242,9027>*names(63) = "▓╥░╝▐Åêù¥";

<:S+-1><:#242,9027>*menuids(63) = "410";

<:S+-1><:#242,9027>*names(64) = "╝▐¼▌╠▀";

<:S+-1><:#242,9027>*menuids(64) = "452";

<:S+-1><:#242,9027>*names(65) = "îƒì⌡é╞Æuè╖";

<:S+-1><:#242,9027>*menuids(65) = "451";

<:S+-1><:#242,9027>*names(66) = "╜═▀┘┴¬»╕";

<:S+-1><:#242,9027>*menuids(66) = "453";

<:S+-1><:#242,9027>*names(67) = "╝┐░╫╜";

<:S+-1><:#242,9027>*menuids(67) = "455";

<:S+-1><:#242,9027>*names(68) = "ÆZò╢";

<:S+-1><:#242,9027>*menuids(68) = "467";

<:S+-1><:#242,9027>*names(69) = "ò└é╫æ╓éª";

<:S+-1><:#242,9027>*menuids(69) = "456";

<:S+-1><:#242,9027>*names(70) = "û┌ă/ì⌡ê°";

<:S+-1><:#242,9027>*menuids(70) = "465";

<:S+-1><:#242,9027>*names(71) = "ò\";

<:S+-1><:#242,9027>*menuids(71) = "457";

<:S+-1><:#242,9027>*names(72) = "╥╙";

<:S+-1><:#242,9027>*menuids(72) = "282";

<:S+-1><:#242,9027>*names(73) = "ì╖é╡ì₧é▌╠¿░┘─▐æ}ôⁿ";

<:S+-1><:#242,9027>*menuids(73) = "182";

<:S+-1><:#242,9027>*names(74) = "ò╢ÅæÅεò±╠¿░┘─▐æ}ôⁿ";

<:S+-1><:#242,9027>*menuids(74) = "183";

<:S+-1><:#242,9027>*names(75) = "╩▀▄░╠¿░┘─▐æ}ôⁿ";

<:S+-1><:#242,9027>*menuids(75) = "568";

<:S+-1><:#242,9027>*names(76) = "╩▀▄░╠¿░┘─▐ìXÉV";

<:S+-1><:#242,9027>*menuids(76) = "571";

<:S+-1><:#242,9027>*names(77) = "æSæ╠ìXÉV";

<:S+-1><:#242,9027>*menuids(77) = "267";

<:S+-1><:#242,9027>*names(78) = "ă╩▀▄░╠¿░┘─▐";

<:S+-1><:#242,9027>*menuids(78) = "569";

<:S+-1><:#242,9027>*names(79) = "æO╩▀▄░╠¿░┘─▐";

<:S+-1><:#242,9027>*menuids(79) = "570";

<:S+-1><:#242,9027>*names(80) = "ì⌡ê°ôoÿ^";

<:S+-1><:#242,9027>*menuids(80) = "180";

<:S+-1><:#242,9027>*names(81) = "ÆZò╢ôoÿ^";

<:S+-1><:#226,9027>*menuids(81) = "199";

<:S+-1><:#242,9027>*names(82) = "ÅCÉ│ïLÿ^";

<:S+-1><:#226,9027>*menuids(82) = "187";

<:S+-1><:#226,9027>*names(83) = "╠▐█»╕ë╗";

<:S+-1><:#226,9027>*menuids(83) = "188";

<:S+-1><:#242,9027>*names(84) = "╩▓╠╚░╝«▌é╚é╡";

<:S+-1><:#242,9027>*menuids(84) = "189";

<:S+-1><:#242,9027>*names(85) = "ì╢æ╡éª";

<:S+-1><:#242,9027>*menuids(85) = "259";

<:S+-1><:#242,9027>*names(86) = "ëEæ╡éª";

<:S+-1><:#242,9027>*menuids(86) = "261";

<:S+-1><:#242,9027>*names(87) = "Æåë¢æ╡éª";

<:S+-1><:#242,9027>*menuids(87) = "260";

<:S+-1><:#242,9027>*names(88) = "ù╝Æ[æ╡éª";

<:S+-1><:#242,9027>*menuids(88) = "262";

<:S+-1><:#242,9027>*names(89) = "æσò╢ÄÜ";

<:S+-1><:#242,9027>*menuids(89) = "273";

<:S+-1><:#242,9027>*names(90) = "żò╢ÄÜ";

<:S+-1><:#242,9027>*menuids(90) = "287";

<:S+-1><:#242,9027>*names(91) = "ɵô¬æσò╢ÄÜ";

<:S+-1><:#242,9027>*menuids(91) = "288";

<:S+-1><:#242,9027>*names(92) = "żé│éóæσò╢ÄÜ";

<:S+-1><:#242,9027>*menuids(92) = "289";

<:S+-1><:#242,9027>*names(93) = "═▀░╝▐┌▓▒│─æ}ôⁿ";

<:S+-1><:#242,9027>*menuids(93) = "375";

<:S+-1><:#242,9027>*names(94) = "═▀░╝▐┌▓▒│─ìφÅ£";

<:S+-1><:#242,9027>*menuids(94) = "373";

<:S+-1><:#242,9027>*names(95) = "═▀░╝▐┌▓▒│─öjèⁿ";

<:S+-1><:#242,9027>*menuids(95) = "374";

<:S+-1><:#242,9027>*names(96) = "┘░╫░æ}ôⁿ";

<:S+-1><:#242,9027>*menuids(96) = "371";

<:S+-1><:#242,9027>*names(97) = "┘░╫░ìφÅ£";

<:S+-1><:#242,9027>*menuids(97) = "372";

<:S+-1><:#242,9027>*names(98) = "╧╕█Ä└ìs";

<:S+-1><:#242,9027>*menuids(98) = "502";

<:S+-1><:#242,9027>*names(99) = "╧╕█ïLÿ^";

<:S+-1><:#242,9027>*menuids(99) = "503";

<:S+-1><:#242,9027>*names(100) = "ϸەҏW";

<:S+-1><:#242,9027>*menuids(100) = "501";

<:S+-1><:#242,9027>*names(101) = "è╚ê╒ïLÿ^";

<:S+-1><:#242,9027>*menuids(101) = "505";

<:S+-1><:#242,9027>*names(102) = "è╚ê╒Ä└ìs";

<:S+-1><:#242,9027>*menuids(102) = "506";

<:S+-1><:#242,9027>*names(103) = "ïLìåé╠æ}ôⁿ";

<:S+-1><:#242,9027>*menuids(103) = "836";

<:S+-1><:#242,9027>*names(104) = "╠º╜─╠½░╧»─";

<:S+-1><:#242,9027>*menuids(104) = "246";

<:S+-1><:#242,9027>*names(105) = "═»└▐/╠»└";

<:S+-1><:#242,9027>*menuids(105) = "377";

<:S+-1><:#242,9027>*names(106) = "║▌─█░┘╩▀╚┘";

<:S+-1><:#242,9027>*menuids(106) = "601";

<:S+-1><:#242,9027>*names(107) = "Tab Ruler";

<:S+-1><:#242,9027>*menuids(107) = "810";

<:S+-1><:#242,9027>*names(108) = "Assign Macro To File";

<:S+-1><:#242,9027>*menuids(108) = "436";

<:S+-1><:#242,9027>*names(109) = "╕╪░▌╜╕╪░▌";

<:S+-1><:#242,9027>*menuids(109) = "233";

<:S+-1><:#226,9027>*names(110) = "╕╪░▌╜╕╪░▌╡╠▀╝«▌";

<:S+-1><:#242,9027>*menuids(110) = "234";

<:S+-1><:#242,9027>*names(111) = "ì⌡ê°ôoÿ^";

<:S+-1><:#226,9027>*menuids(111) = "180";

<:S+-1><:#226,9027>*names(112) = "û┌ăôoÿ^";

<:S+-1><:#242,9027>*menuids(112) = "835";

<:S+-1><:#242,9027>*names(113) = "├▐¿┌╕─╪";

<:S+-1><:#242,9027>*menuids(113) = "170";

<:S+-1><:#242,9027>endit:

<:S+-1><:#242,9027>hourglass(0)

<:S+-1><:#242,9027>StatusBarMsg("")

<:S+-1><:#242,9027>return 113

<:S+-1>END FUNCTION<:p<* >>

<:S+-1>'

<:S+-1>' GetAmiPro - let them pick an AmiPro function from the passed list

<:S+-1>'    Return the index into the passed array or 0 if the user canceled.

<:S+-1><:><:ZGetAmiPro>FUNCTION GetAmiPro<:Z~GetAmiPro><:>(names, cnt)

<:S+-1>onerror endit

<:S+-1>oncancel endit

<:S+-1>StatusBarMsg("Å¡é╡é¿é▄é┐é¡é╛é│éóüB")

<:S+-1>hourglass(1)

<:S+-1>FillEdit(8000, &names)

<:S+-1>hourglass(0)

<:S+-1>endit:

<:S+-1>StatusBarMsg("")

<:S+-1>i = 0                        ' set default return status

<:S+-1>if 1 = DialogBox(".", "funclst")        ' They hit OK?

<:S+-1>    selected = GetDialogField$(9000)    ' Yes, get the text

<:S+-1>    for i = 1 to cnt            ' Now run through the array

<:S+-1>        if selected = *names(i)    ' to find the index

<:S+-1>            break

<:S+-1>        endif

<:S+-1>    next

<:S+-1>endif

<:S+-1>return i

<:S+-1>END FUNCTION

<:S+-1><:p<* >>

<:S+-1>'

<:S+-1>' AddToAutoExec - Add lines to the autoexec.smm file that will add a new menu item

<:S+-1>'

<:S+-1><:ZAddToAutoExec>FUNCTION AddToAutoexec<:Z~AddToAutoExec>(menuname, itemname, menuid, macroname, helptext, pos, accel)

<:S+-1>declare OpenAutoExec()

<:S+-1><:><:>OpenAutoExec()                ' open autoexec.smm and position

<:S+-1>

<:S+-1>if (accel != 0)                    ' This one have an accelerator?

<:S+-1>    type("accel = {accel}<[>enter]")

<:S+-1>    type("menuid = {menuid}<[>enter]")

<:S+-1>    type("macroname = ""{macroname}""<[>enter]")

<:S+-1>    type("OnKey(accel, menuid, macroname)")

<:S+-1>endif

<:S+-1>if (0 != menuname)

<:S+-1>    menuname = ToMenuASCII$(menuname)

<:S+-1>    type("menuname = ""{menuname}""<[>enter]")    ' make variable assignments

<:S+-1>    type("itemname = ""{itemname}""<[>enter]")    ' so the AddmenuItem line wont be to long.

<:S+-1>    if (0 != menuid)                ' We adding an AmiPro Function?

<:S+-1>        type("menuid = {menuid}<[>enter]")    ' Yes

<:S+-1>        if (0 = pos)

<:S+-1>            type("AddmenuItem(1, {{menuname}, {{itemname}, {{menuid})")

<:S+-1>        else

<:S+-1>            pos = pos - 1;

<:S+-1>            type("pos = {pos}<[>enter]")

<:S+-1>            type("InsertMenuItem(1, {{menuname}, {{pos}, {{itemname}, {{menuid})")

<:S+-1>        endif

<:S+-1>    else

<:S+-1>        type("macroname = ""{macroname}""<[>enter]")        ' its a macro.

<:S+-1>        type("helptext = ""{helptext}""<[>enter]")

<:S+-1>        if (0 = pos)

<:S+-1>            type("AddmenuItem(1, {{menuname}, {{itemname}, {{macroname}, {{helptext})")

<:S+-1>        else

<:S+-1>            pos = pos - 1;

<:S+-1>            type("pos = {pos}<[>enter]");

<:S+-1>            type("InsertMenuItem(1, {{menuname}, {{pos},");

<:S+-1>            type(" {{itemname}, {{macroname}, {{helptext})");

<:S+-1>        endif

<:S+-1>    endif

<:S+-1>endif

<:S+-1>Save()                    ' and save it

<:S+-1>FileClose()                ' and close it

<:S+-1>END FUNCTION

<:S+-1>

<:S+-1>' DelFromAutoExec - Add lines in the autoexec to delete a menu item.

<:S+-1>

<:S+-1><:ZDelFromAutoExec>FUNCTION DelFromAutoexec(<:Z~DelFromAutoExec>menuname, itemname)

<:S+-1>menuname = ToMenuASCII$(menuname)

<:S+-1>itemname = ToMenuASCII$(itemname)

<:S+-1>declare OpenAutoExec()

<:S+-1>OpenAutoExec()                ' open autoexec.smm and position

<:S+-1>type("menuname = ""{menuname}""<[>enter]")    ' make variable assignments

<:S+-1>type("itemname = ""{itemname}""<[>enter]")    ' so the AddmenuItem statement wont be to long.

<:S+-1>type("DeleteMenuItem(1, {{menuname}, {{itemname})")

<:S+-1><:#242,9027>Save()                    ' and save it

<:S+-1><:#242,9027>FileClose()                ' and close it

<:S+-1><:#242,9027>END FUNCTION

<:S+-1>'<:p<* >>

<:S+-1>' OpenAutoExec - Open-Create the autoexec.smm then position the insertion point just before

<:S+-1>'    the first END FUNCTION

<:S+-1>'

<:S+-1><:ZOpenAutoExec>FUNCTION OpenAutoExec(<:Z~OpenAutoExec>)

<:S+-1>defstr fid;

<:S+-1><:ZMACUTEMP><:Z~MACUTEMP>auto = FindAutoExec();            ' Determine where the autoexec is

<:S+-1>if (0 = Assign(&fid, fopen(auto, "r")))    ' Does it exist?

<:S+-1>    sty = GetProfileString$("AmiPro", "defstyle", "amipro.ini")

<:S+-1>    if sty = ""

<:S+-1>        sty = "jdefault.sty"

<:S+-1>    endif

<:S+-1>    new(sty, 0, 0)            ' No let ami create it.

<:S+-1>    type("FUNCTION auto()<[>enter]")    ' And fill in an empty

<:S+-1>    type("END FUNCTION<[>enter]")    ' Function - End Function Pait

<:S+-1>    type("<[>ctrlhome]")            ' Position at top of file

<:S+-1>    saveas(auto, 32,"", "")            ' Create it.

<:S+-1>else

<:S+-1>    fclose(fid)                ' it existed. so close this

<:S+-1>    FileOpen(auto, 1, "")            ' let ami open

<:S+-1>endif

<:S+-1>Replace(0, 0, 24576, "End function", "")    ' position at first end function

<:S+-1>type("<[>home]")                    ' before the End

<:S+-1>type("<[>enter]")                    ' create a line

<:S+-1>type("<[>up]")                    ' position on that line

<:S+-1>END FUNCTION                ' that all folks

<:S+-1>'

<:S+-1>' FindAutoExec - determine where the autoexec.smm file is.  If we can find it in the macro

<:S+-1>'    directory or the docs directory, return the amipro directory.

<:S+-1>'

<:S+-1><:ZFindAutoExec>FUNCTION FindAutoExec()<:Z~FindAutoExec>

<:S+-1>defstr    fid;

<:S+-1>auto = strcat$(GetMacPath$(), "autoexec.smm")    ' check macro dir first

<:S+-1>if (0 = Assign(&fid, fopen(auto, "r")))    ' Does it exist?

<:S+-1>    auto = strcat$(GetDocPath$(), "autoexec.smm")    ' Now the docs dir

<:S+-1>    if (0 = Assign(&fid, fopen(auto, "r")))    ' Does it exist?

<:S+-1>        auto = strcat$(GetAmiDirectory$(), "autoexec.smm")    ' lastly amipro dir

<:S+-1>    else

<:S+-1>        fclose(fid)

<:S+-1>    endif

<:S+-1>else

<:S+-1>    fclose(fid)

<:S+-1>endif

<:S+-1>return auto

<:S+-1>END FUNCTION<:p<* >>

<:S+-1>' LocateHmenu Given a menuname (File, Edit etc) return the handle to that menu.

<:S+-1>

<:S+-1><:ZLocateHmenu>FUNCTION LocateHmenu(menu)<:Z~LocateHmenu>

<:S+-1>hWnd = GetActiveWindow()                ' Who is active

<:S+-1>hPrevWnd = hWnd;

<:S+-1>while 0 != Assign(&hWnd, GetParent(hWnd))    ' Go til we find a window with no parent

<:S+-1>    hPrevWnd = hWnd;

<:S+-1>wend

<:S+-1>hWnd = hPrevWnd;

<:S+-1>hMenu = GetMenu(hWnd)                ' Get the hMenu for the menu bar

<:S+-1><:><:><:><:><:><:>return FindMenu(hMenu, Menu)            ' Find the menu

<:S+-1>END FUNCTION

<:S+-1>

<:S+-1>' DelMenu - pass us a menu name (File, Edit etc) and we will display a list box with all items

<:S+-1>'    From that menu and let the user delete one.

<:S+-1>FUNCTION <:ZDelMenu>DelMenu<:Z~DelMenu>(Menu)

<:S+-1>hWnd = GetActiveWindow()

<:S+-1>hPrevWnd = hWnd;

<:S+-1>while 0 != Assign(&hWnd, GetParent(hWnd))

<:S+-1>    hPrevWnd = hWnd;

<:S+-1>wend

<:S+-1>hWnd = hPrevWnd;

<:S+-1>hMenu = GetMenu(hWnd)

<:S+-1>defstr menuname

<:S+-1><:><:><:><:><:><:>if (0 != Assign(&hMenu, FindMenu(hMenu, Menu)))    ' If we can find that menu

<:S+-1><:><:><:><:>    LoadTheBox(hMenu, 9000);                ' Load the list box

<:S+-1>    if (1 = DialogBox(".", "DelMenu"))            ' Let em pick one

<:S+-1>        item = GetDialogField$(9000)

<:S+-1>        pos = Instr(0, item, "(")

<:S+-1>        if pos = FALSE

<:S+-1>            pos = LEN(item)

<:S+-1>        else

<:S+-1>            pos = pos - 1

<:S+-1>        endif

<:S+-1>        menucnt = GetMenuItemCount(hMenu) - 1

<:S+-1>        for i = 0 to menucnt

<:S+-1>            GetMenuString(hMenu, i, &menuname, 80, MF_BYPOSITION)

<:S+-1>            if left$(menuname, pos) = left$(item, pos)

<:S+-1>                item = menuname

<:S+-1>                break

<:S+-1>            endif

<:S+-1>        next

<:S+-1>        DeleteMenuItem(1, menu, item)        ' Delete it

<:S+-1>        if (Decide("é▒é╠É▌ÆΦé≡ò█æ╢é╡é─éµéδé╡éóé┼é╖é⌐"))

<:S+-1>            DelFromAutoExec(menu, item)

<:S+-1>        endif

<:S+-1>    endif

<:S+-1>endif

<:S+-1>END FUNCTION<:p<* >>

<:S+-1><:#226,9027>' LoadTheBox - given a hMenu and id load it with all menu items, includeing seiarators.

<:S+-1><:#226,9027>'

<:S+-1><:#226,9027>FUNCTION <:ZLoadTheBox>LoadTheBox<:Z~LoadTheBox>(hMenu, id)

<:S+-1><:#226,9027>defstr    menuname;

<:S+-1><:#226,9027>menucnt = GetMenuItemCount(hMenu)        'Find out how many

<:S+-1><:#226,9027>for i = 0 to menucnt - 1

<:S+-1><:#226,9027>    GetMenuString(hMenu, i, &menuname, 80, MF_BYPOSITION)    ' Get one

<:S+-1><:#226,9027>    if (0 << len(menuname))

<:S+-1><:#226,9027>        sec = asc(mid$(menuname, 2, 1))

<:S+-1><:#452,9027>        if left$(menuname, 1) != "&" or sec << 0x31 or sec <;> 0x39 or mid$(menuname, 3, 1) != " "

<:S+-1><:#226,9027>            FillEdit(id, Rmctrl(menuname))

<:S+-1><:#226,9027>        endif

<:S+-1><:#226,9027>    else

<:S+-1><:#226,9027>        FillEdit(id, "------------------------------------")

<:S+-1><:#226,9027>    endif

<:S+-1><:#226,9027>next

<:S+-1><:#226,9027>

<:S+-1><:#226,9027>END FUNCTION

<:S+-1><:#226,9027>'

<:S+-1><:#226,9027>' FindMenu - Given a hMenu and name, return a handle that that menu.

<:S+-1><:#226,9027>FUNCTION <:ZFindMenu>FindMenu<:Z~FindMenu>(hMenu, Name)

<:S+-1><:#226,9027>defstr    menuname;

<:S+-1><:#226,9027>menucnt = GetMenuItemCount(hMenu)        ' How many

<:S+-1><:#226,9027>for i = 0 to menucnt - 1

<:S+-1><:#226,9027>    GetMenuString(hMenu, i, &menuname, 80, MF_BYPOSITION)

<:S+-1><:#226,9027>    if (Name = menuname)            ' Match?

<:S+-1><:#226,9027>        hMenu = GetSubMenu(hMenu, i);    ' Yes, get its handle.

<:S+-1><:#226,9027>        return hMenu;

<:S+-1><:#226,9027>    endif

<:S+-1><:#226,9027>next

<:S+-1><:#226,9027>return 0

<:S+-1><:#226,9027>END FUNCTION

<:S+-1><:#226,9027>

<:S+-1><:#226,9027>Function RmCtrl(str)

<:S+-1><:#226,9027>pos = Instr(0, str, chr$(30))

<:S+-1><:#226,9027>if pos != FALSE

<:S+-1><:#226,9027>    rstr = left$(str, pos - 1)

<:S+-1><:#226,9027>    if getglobalvar$("kanjimenu") = "roman"

<:S+-1><:#226,9027>        rstr = strcat$(rstr, mid$(str, pos + 1, 1), ")")

<:S+-1><:#226,9027>    else

<:S+-1><:#226,9027>        rstr = strcat$(rstr, mid$(str, pos + 3, 1), ")")

<:S+-1><:#226,9027>    endif

<:S+-1><:#226,9027>else

<:S+-1><:#226,9027>    rstr = str

<:S+-1><:#226,9027>endif

<:S+-1><:#226,9027>return rstr

<:S+-1><:#226,9027>End Function

<:S+-1><:#226,9027>

<:S+-1><:#226,9027>DIALOG    DelMenu

<:S+-1><:#226,9027>-2134376448    5    100    45    176    84    ""    ""    "╥╞¡░ìφÅ£"

<:S+-1><:#226,9027>FONT    8    "System"

<:S+-1><:#226,9027>130    3    40    13    1    1342242817    "button"    "OK"    0

<:S+-1><:#226,9027>130    19    40    13    2    1342242816    "button"    "╖¼▌╛┘"    0

<:S+-1><:#452,9027>6    29    56    8    1000    1342177280    "static"    "╥╞¡░ìÇû┌(\036M\037╥):"    0

<:S+-1><:#226,9027>4    40    120    41    9000    1352728577    "listbox"    ""    0

<:S+-1><:#452,9027>5    7    98    16    1001    1342177280    "static"    "ìφÅ£é╖éΘ╥╞¡░ìÇû┌é≡æIæ≡é╡é─é¡é╛é│éó"    0

<:S+-1><:#226,9027>END DIALOG

<:S+-1><:#226,9027><:>

<:S+-1><:#226,9027>DIALOG    PickMenu

<:S+-1>-2134376448    6    90    45    200    73    ""    ""    "▒╨╠▀█é╠╢╜└╧▓╜▐"

<:S+-1><:#226,9027>FONT    8    "System"

<:S+-1><:#226,9027>6    8    56    8    1000    1342177280    "static"    "╥╞¡░(\036M\037╥):"    0

<:S+-1><:#226,9027>4    17    61    50    9000    1352728577    "listbox"    ""    0

<:S+-1><:#226,9027>148    2    44    13    2    1342242816    "button"    "ÅIù╣(\036X\037╝)"    0

<:S+-1><:#452,9027>73    19    120    13    5    1342242816    "button"    "▒╨╠▀█ï@ö\/╧╕█é╠Æ╟ë┴(\036A\037┬)..."    0

<:S+-1><:#452,9027>73    36    120    13    6    1342242816    "button"    "╥╞¡░ìÇû┌ìφÅ£(\036D\037╗)..."    0

<:S+-1><:#452,9027>73    53    120    13    7    1342242816    "button"    "╝«░─╢»─╖░(\036S\037╖)..."    0

<:S+-1><:#226,9027>END DIALOG

<:S+-1><:#226,9027>

<:S+-1><:#226,9027>DIALOG    AddItem

<:S+-1><:#226,9027>-2134376448    20    39    24    260    104    ""    ""    "╥╞¡░ìÇû┌Æ╟ë┴"

<:S+-1><:#226,9027>FONT    8    "System"

<:S+-1><:#452,9027>5    15    82    8    1000    1342177282    "static"    "╥╞¡░é╠û╝æOüi\036N\037┼):"    0

<:S+-1><:#226,9027>88    13    84    12    8000    1350631552    "edit"    ""    0

<:S+-1><:#452,9027>5    28    82    8    1006    1342177282    "static"    "Æ╝æOæ}ôⁿê╩Æu(\036I\037┐):"    0

<:S+-1><:#226,9027>88    26    84    56    9500    1344339971    "combobox"    ""    0

<:S+-1><:#226,9027>5    55    86    41    20    1342177287    "button"    "╝«░─╢»─╖░"    0

<:S+-1><:#226,9027>9    65    38    8    1007    1342177280    "static"    "ôoÿ^╖░(\036K\037╖):"    0

<:S+-1><:#226,9027>8    76    18    12    8003    1350631552    "edit"    ""    0

<:S+-1><:#226,9027>48    66    38    8    21    1342242819    "button"    "&Control"    0

<:S+-1><:#226,9027>48    76    38    8    22    1342242819    "button"    "&Shift"    0

<:S+-1><:#226,9027>48    86    38    8    23    1342242819    "button"    "&Alt"    0

<:S+-1><:#452,9027>98    74    141    8    1001    1342177280    "static"    "╧╕█é╠ï@ö\Éαû╛(\036D\037╛):"    0

<:S+-1><:#226,9027>98    84    138    12    8001    1350631552    "edit"    ""    0

<:S+-1><:#226,9027>5    2    82    8    1002    1342177282    "static"    "Æ╟ë┴é╖éΘ╥╞¡░:"    0

<:S+-1><:#226,9027>214    4    40    14    1    1342242817    "button"    "OK"    0

<:S+-1><:#226,9027>214    21    40    14    2    1342242816    "button"    "╖¼▌╛┘"    0

<:S+-1><:#452,9027>182    40    70    14    3    1342242816    "button"    "▒╨╠▀█ï@ö\(\036F\037▒)..."    0

<:S+-1><:#226,9027>182    56    70    14    4    1342242816    "button"    "╧╕█(\036M\037╧)..."    0

<:S+-1><:#226,9027>88    2    84    8    1003    1342177280    "static"    ""    0

<:S+-1><:#226,9027>5    41    82    8    1004    1342177282    "static"    "Æ╟ë┴é╖éΘï@ö\/╧╕█:"    0

<:S+-1><:#226,9027>88    41    84    8    1005    1342177280    "static"    ""    0

<:S+-1><:#226,9027>END DIALOG

<:S+-1><:#226,9027>

<:S+-1><:#226,9027>DIALOG    AddAccel

<:S+-1><:#226,9027>-2134376448    12    94    28    208    72    ""    ""    "╝«░─╢»─╖░é╠Æ╟ë┴"

<:S+-1><:#226,9027>FONT    8    "System"

<:S+-1><:#226,9027>162    3    40    13    1    1342242817    "button"    "OK"    0

<:S+-1><:#226,9027>162    19    40    13    2    1342242816    "button"    "╖¼▌╛┘"    0

<:S+-1>128    35    74    13    3    1342242816    "button"    "▒╨╠▀█ï@ö\(\036F\037▒)..."    0

<:S+-1><:#226,9027>128    51    74    13    4    1342242816    "button"    "╧╕█(\036M\037╧)..."    0

<:S+-1><:#226,9027>6    13    90    43    20    1342177287    "button"    "╝«░─╢»─╖░"    0

<:S+-1><:#226,9027>10    25    38    8    1007    1342177280    "static"    "ôoÿ^╖░(\036K\037╖):"    0

<:S+-1><:#226,9027>13    36    18    11    8003    1350631552    "edit"    ""    0

<:S+-1><:#226,9027>50    25    36    9    21    1342242819    "button"    "&Control"    0

<:S+-1><:#226,9027>50    35    38    9    22    1342242819    "button"    "&Shift"    0

<:S+-1><:#226,9027>50    45    38    9    23    1342242819    "button"    "&Alt"    0

<:S+-1><:#226,9027>6    3    64    9    1004    1342177280    "static"    "ï@ö\/╧╕█:"    0

<:S+-1><:#226,9027>74    3    80    9    1005    1342177280    "static"    "text"    0

<:S+-1><:#226,9027>END DIALOG

<:S+-1><:#226,9027>

<:S+-1><:#226,9027>DIALOG    MacroLst

<:S+-1><:#226,9027>-2134376448    6    110    29    154    89    ""    ""    "╧╕█Æ╟ë┴"

<:S+-1><:#226,9027>FONT    8    "System"

<:S+-1><:#226,9027>8    16    60    11    8001    1350631552    "edit"    ""    0

<:S+-1><:#226,9027>8    32    60    53    9001    1352728579    "listbox"    ""    0

<:S+-1><:#226,9027>72    37    74    8    7999    1342177280    "static"    ""    0

<:S+-1><:#226,9027>106    3    40    13    1    1342242817    "button"    "OK"    0

<:S+-1><:#226,9027>106    19    40    13    2    1342242816    "button"    "╖¼▌╛┘"    0

<:S+-1><:#452,9027>8    6    68    8    1001    1342177280    "static"    "Ä└ìsé╖éΘ╧╕█(\036M\037╧):"    0

<:S+-1><:#226,9027>END DIALOG

<:S+-1><:#226,9027>

<:S+-1><:#226,9027>DIALOG    FuncLst

<:S+-1><:#226,9027>-2134376448    4    114    28    158    67    ""    ""    "ï@ö\Æ╟ë┴"

<:S+-1><:#226,9027>FONT    8    "System"

<:S+-1>6    4    66    8    1000    1342177280    "static"    "▒╨╠▀█ï@ö\(\036F\037▒):"    0

<:S+-1><:#226,9027>6    16    100    45    9000    1352728579    "listbox"    ""    0

<:S+-1><:#226,9027>112    4    40    13    1    1342242817    "button"    "OK"    0

<:S+-1><:#226,9027>112    22    40    13    2    1342242816    "button"    "╖¼▌╛┘"    0

<:S+-1><:#226,9027>END DIALOG

>

[Embedded]
00048709
>
[macsum] 27
CustMenu 0 0 12 41
AddItem 1817 6 14 115
ComboCallBack 3922 3 3 222
InitCombo 4032 1 7 231
AddAccelerator 4770 3 10 258
DetermineAccel 5860 0 4 311
ShowAccel 6529 1 2 353
AddAccelStuff 6920 2 4 372
LoadMenus 7424 1 6 397
GetMacro 7875 0 2 414
LoadAmiFuns 8166 2 1 438
GetAmiPro 13721 2 3 677
AddToAutoexec 14081 7 1 701
DelFromAutoexec 14994 2 1 743
OpenAutoExec 15216 0 4 758
FindAutoExec 15664 0 3 784
LocateHmenu 16018 1 4 801
DelMenu 16285 1 9 814
LoadTheBox 17201 2 5 850
FindMenu 17750 2 4 868
RmCtrl 18093 1 3 881
DelMenu 18460 0 -1 896
PickMenu 18815 0 -1 906
AddItem 19272 0 -1 917
AddAccel 20399 0 -1 942
MacroLst 21095 0 -1 959
FuncLst 21459 0 -1 970
[macse]
14 CustMenu
5 20
21 1 [X]
5 200
21 2 [X]
5 200
21 3 [X]
0 1050
13
8 4
6 4
5 0
18 3
11 00000606
6 4
21 5 [X]
0 1051 &5
5 1
8 6
6 4
6 6
18 2
12 00000220
10 00000606
5 1
6 6
3 0
8 6
10 00000145
6 6
22 5
0 14 [X]
13
8 7
5 1
6 7
18 4
12 00000326
10 00000411
5 -1
6 7
3 0
8 7
10 00000250
6 6
22 5
0 15 [X] "{7}" 1
13
7 "\"
18 0
11 00000398
10 00000411
10 00000292
6 6
22 5
6 6
22 5
0 14 [X]
13
6 7
3 1
0 807 [X] [X]
13
7 "AUTOEXEC.SMM"
18 0
11 00000593
0 3 "AUTOEXEC.SMM é¬âIü[âvâôé│éΩé─éóéΘé╠é┼Ä└ìsé┼é½é▄é╣é±" "âGâëü["
6 0
15
9
10 00000187
16 LoadMenus &1
13
8 8
16 LoadAmiFuns &2 &3
13
8 9
0 271 "kanjimenu" 1
0 286 "windows" "kanjimenu" "win.ini"
13
0 264 "kanjimenu" [X]
0 789 ""
5 1
8 6
6 8
5 1
3 1
6 6
18 2
12 00000855
10 00000913
5 1
6 6
3 0
8 6
10 00000770
6 6
22 1
16 RmCtrl [X]
13
0 31 8000 [X]
10 00000822
0 271 "numitem" 1
5 1
0 26 "." "PickMenu"
13
0 805 &10 [X]
13
18 5
11 00001769
0 27 9000
13
8 11
0 808 0 "{11}" "("
13
5 1
3 1
8 7
5 1
8 6
6 8
5 1
3 1
6 6
18 2
12 00001155
10 00001273
5 1
6 6
3 0
8 6
10 00001070
0 806 "{11}" "{7}"
13
6 6
22 1
0 806 [X] "{7}"
13
18 0
11 00001260
6 6
22 1
8 11
10 00001273
10 00001122
7 ""
6 11
18 1
11 00001603
5 5
6 10
18 0
11 00001418
0 296 1
16 AddItem "{11}" "{9}" &2 &3 "{8}" &1
0 296 0
10 00001603
10 00001603
5 6
6 10
18 0
11 00001511
0 296 1
16 DelMenu "{11}"
0 296 0
10 00001603
10 00001603
5 7
6 10
18 0
11 00001603
0 296 1
16 AddAccelerator "{9}" &2 &3
0 296 0
10 00001603
5 1
8 6
6 8
5 1
3 1
6 6
18 2
12 00001698
10 00001756
5 1
6 6
3 0
8 6
10 00001613
6 6
22 1
16 RmCtrl [X]
13
0 31 8000 [X]
10 00001665
10 00000932
0 266 "numitem"
0 266 "kanjimenu"
6 0
15
9
14 AddItem
5 0
8 7
7 ""
8 8
7 ""
8 9
7 ""
8 10
7 ""
8 11
7 ""
8 12
5 0
8 13
5 0
8 14
5 0
8 15
5 0
8 16
0 271 "Cust1" 1
0 271 "Cust2" 1
0 264 "Cust1" 0
16 LocateHmenu "{0}"
13
0 264 "Cust2" [X]
5 2
8 17
6 17
5 0
18 1
6 17
5 1
18 1
1 1
11 00001014
0 31 1003 "{0}"
0 31 1005 "{10}"
0 31 8000 "{9}"
0 31 8001 "{11}"
0 31 8002 "{14}"
16 ShowAccel "{15}"
0 802
13
0 16 [X] "!InitCombo"
13
0 41 0 [X]
0 802
13
0 16 [X] "!ComboCallback"
13
0 41 9500 [X]
5 0
0 26 "." "additem"
13
0 805 &17 [X]
13
18 1
11 00000718
0 27 8000
13
8 9
0 27 8001
13
8 11
0 265 "Cust1"
13
8 14
6 14
5 0
18 0
11 00000689
0 265 "numitem"
13
8 14
16 DetermineAccel
13
8 15
5 4
6 17
18 0
11 00000854
7 ""
16 GetMacro
13
0 805 &12 [X]
13
18 1
11 00000841
6 12
8 8
6 8
8 10
5 0
8 7
10 00001001
5 3
6 17
18 0
11 00001001
5 0
16 GetAmiPro &2 "{1}"
13
0 805 &13 [X]
13
18 1
11 00001001
7 ""
8 18
6 13
22 3
8 7
6 13
22 2
8 10
10 00000231
0 266 "Cust1"
0 266 "Cust2"
6 17
6 0
7 ""
18 1
6 7
5 0
18 1
6 8
7 ""
18 1
1 2
1 1
1 1
11 00002021
6 15
11 00001187
16 AddAccelStuff "{9}" "{15}"
13
8 9
6 7
5 0
18 1
11 00001551
5 0
6 14
18 0
11 00001286
0 516 1 "{0}" "{9}" "{7}"
10 00001333
6 14
5 1
3 1
0 527 1 "{0}" [X] "{9}" "{7}"
6 15
11 00001538
0 1050
13
5 1
18 5
11 00001513
0 286 "AmiPro" "defstyle" "amipro.ini"
13
8 19
6 19
7 ""
18 0
11 00001493
7 "Jdefault.sty"
8 19
2 101 1 "{19}" 0 0
2 422 1 "{15}" "{7}" ""
10 00001886
5 0
6 14
18 0
11 00001628
0 516 1 "{0}" "{9}" "{8}" "{11}"
10 00001682
6 14
5 1
3 1
0 527 1 "{0}" [X] "{9}" "{8}" "{11}"
6 15
11 00001886
0 1050
13
5 1
18 5
11 00001862
0 286 "AmiPro" "defstyle" "amipro.ini"
13
8 19
6 19
7 ""
18 0
11 00001842
7 "Jdefault.sty"
8 19
2 101 1 "{19}" 0 0
2 422 1 "{15}" 0 "{8}"
0 2 "ăé╠âZâbâVâçâôé╔É▌ÆΦé≡é╠é▒é╡é▄é╖é⌐"
13
11 00002008
16 AddToAutoexec "{0}" "{9}" "{7}" "{8}" "{11}" "{14}" "{15}"
10 00002093
5 1
6 17
18 0
11 00002093
0 3 "òKùvé╚Åεò±é¬é▌é┬é⌐éΦé▄é╣é±é┼é╡é╜üB"
6 6
15
9
14 ComboCallBack
0 44 "{0}" "{1}"
13
8 4
0 1036 "{4}" 1031 0 0
13
8 5
0 264 "Cust1" "{5}"
6 3
15
9
14 InitCombo
0 265 "Cust2"
13
8 3
0 43 "{0}" 9500 ""
5 1
8 4
0 284 "user,GetMenuItemCount,HH" "{3}"
13
8 5
5 0
8 6
6 5
5 1
3 1
6 6
18 2
12 00000212
10 00000640
5 1
6 6
3 0
8 6
10 00000127
0 284 "user,GetMenuString,HHHFHH" "{3}" "{6}" &2 80 1024
5 0
0 14 "{2}"
13
18 5
11 00000551
0 15 "{2}" 2 1
13
0 40 [X]
13
8 7
0 806 "{2}" 1
13
7 "&"
18 1
6 7
5 49
18 5
6 7
5 57
18 3
0 15 "{2}" 3 1
13
7 " "
18 1
1 2
1 2
1 2
11 00000538
16 Rmctrl "{2}"
13
0 43 "{0}" 9500 [X]
6 4
5 1
3 0
8 4
10 00000627
0 43 "{0}" 9500 "------------------------------------"
6 4
5 1
3 0
8 4
10 00000179
0 264 "numitem" "{4}"
0 44 "{0}" 9500
13
0 265 "Cust1"
13
0 1036 [X] 1038 [X] 0
6 1
15
9
14 AddAccelerator
5 0
8 4
7 ""
8 5
7 ""
8 6
5 0
8 7
5 0
8 8
7 ""
8 9
5 2
8 10
6 10
5 0
18 1
6 10
5 1
18 1
1 1
11 00000567
0 31 1005 "{6}"
16 ShowAccel "{8}"
5 0
0 26 "." "addaccel"
13
0 805 &10 [X]
13
18 1
11 00000278
16 DetermineAccel
13
8 8
5 4
6 10
18 0
11 00000411
7 ""
16 GetMacro
13
0 805 &9 [X]
13
18 1
11 00000398
6 9
8 5
6 5
8 6
5 0
8 4
10 00000554
5 3
6 10
18 0
11 00000554
5 0
16 GetAmiPro &1 "{0}"
13
0 805 &7 [X]
13
18 1
11 00000554
7 ""
8 11
6 7
22 2
8 4
6 7
22 1
8 6
10 00000093
6 10
6 8
5 0
18 1
6 4
5 0
18 1
6 5
7 ""
18 1
1 2
1 1
1 1
11 00001014
0 1050
13
5 1
18 5
11 00000811
0 286 "AmiPro" "defstyle" "amipro.ini"
13
8 12
6 12
7 ""
18 0
11 00000791
7 "Jdefault.sty"
8 12
2 101 1 "{12}" 0 0
6 4
5 0
18 1
11 00000877
2 422 1 "{8}" "{4}" ""
10 00000900
2 422 1 "{8}" 0 "{5}"
0 2 "é▒é╠É▌ÆΦé≡ò█æ╢é╡é─éµéδé╡éóé┼é╖é⌐"
13
11 00001001
16 AddToAutoexec 0 0 "{4}" "{5}" 0 0 "{8}"
10 00001078
5 1
6 10
18 0
11 00001078
0 3 "òKùvé╚Åεò±é¬î⌐é┬é⌐éΦé▄é╣é±"
6 3
15
9
14 DetermineAccel
5 0
8 2
0 27 8003
13
8 3
7 ""
6 3
18 1
11 00000645
5 1
0 14 "{3}"
13
18 0
11 00000184
0 806 "{3}" 1
13
0 18 [X]
13
0 40 [X]
13
8 2
10 00000494
7 "F"
0 806 "{3}" 1
13
0 18 [X]
13
18 0
0 14 "{3}"
13
5 1
3 1
0 807 "{3}" [X]
13
0 805 &1 [X]
13
0 277 [X]
13
1 1
11 00000409
0 784 "[112]"
13
0 40 [X]
13
5 1
3 1
8 2
6 2
6 1
3 0
8 2
10 00000494
0 3 "û│î°é╚╖░é┼é╖üB╖░é═Aé⌐éτZüAéαé╡é¡é═F1é⌐éτF12é▄é┼é┼ôoÿ^é╡é─é¡é╛é│éó"
5 0
15
9
0 27 21
13
11 00000545
6 2
5 16384
25 2
8 2
0 27 22
13
11 00000595
6 2
5 4096
25 2
8 2
0 27 23
13
11 00000645
6 2
5 8192
25 2
8 2
6 2
15
9
6 0
15
9
14 ShowAccel
5 0
6 0
18 1
11 00000379
6 0
5 16384
25 1
0 31 21 [X]
6 0
5 4096
25 1
0 31 22 [X]
6 0
5 8192
25 1
0 31 23 [X]
6 0
5 255
25 1
8 0
0 784 "[112]"
13
0 40 [X]
13
8 2
6 2
6 0
18 4
6 0
6 2
5 12
3 0
18 4
1 1
11 00000348
5 49
6 0
6 2
3 1
3 0
0 39 [X]
13
0 16 "F" [X]
13
0 31 8003 [X]
10 00000379
0 39 "{0}"
13
0 31 8003 [X]
6 1
15
9
14 AddAccelStuff
7 ""
8 3
6 1
5 16384
25 1
11 00000091
0 16 "{3}" "Ctrl+"
13
8 3
6 1
5 4096
25 1
11 00000153
0 16 "{3}" "Shift+"
13
8 3
6 1
5 8192
25 1
11 00000213
0 16 "{3}" "Alt+"
13
8 3
6 1
5 255
25 1
8 1
0 784 "[112]"
13
0 40 [X]
13
8 4
6 4
6 1
18 4
6 1
6 4
5 12
3 0
18 4
1 1
11 00000411
5 49
6 1
6 4
3 1
3 0
0 39 [X]
13
0 16 "F" [X]
13
8 5
10 00000432
0 39 "{1}"
13
8 5
0 16 "{3}" "{5}"
13
8 3
0 16 "{0}" "    " "{3}"
13
15
9
6 2
15
9
14 LoadMenus
0 284 "user,GetActiveWindow,H"
13
0 284 "user,GetMenu,HH" [X]
13
8 2
0 284 "user,GetMenuItemCount,HH" "{2}"
13
8 3
5 1
8 5
5 0
8 6
6 3
5 1
3 1
6 6
18 2
12 00000242
10 00000427
5 1
6 6
3 0
8 6
10 00000157
0 284 "user,GetMenuString,HHHFHH" "{2}" "{6}" &4 80 1024
6 4
7 ""
18 1
6 4
0 641 "│¿▌─▐│(\036W\037│)"
13
18 1
1 1
11 00000414
6 5
6 4
23 0
6 5
5 1
3 0
8 5
10 00000209
6 5
15
9
6 1
15
9
14 GetMacro
20 00000257
19 00000257
0 789 "Å¡é╡é¿æ╥é┐é¡é╛é│éó..."
0 295
13
0 781 [X]
0 31 9001 "*.smm"
0 789 ""
5 1
0 26 "." "macrolst"
13
18 0
11 00000246
0 290
13
0 27 8001
13
0 16 [X] [X]
13
0 17 [X]
13
8 1
10 00000257
7 ""
8 1
6 1
15
9
0 789 ""
6 0
15
9
14 LoadAmiFuns
20 00005510
19 00005510
0 789 "║▌─█░┘╠º▓┘é≡ô╟é▌ì₧é±é┼éóé▄é╖..."
5 1
7 "ÉVïK"
23 0
5 1
7 "101"
23 1
5 2
7 "èJé¡"
23 0
5 2
7 "102"
23 1
5 3
7 "ÅπÅæé½ò█æ╢"
23 0
5 3
7 "103"
23 1
5 4
7 "û╝æOé≡òté»é─ò█æ╢"
23 0
5 4
7 "104"
23 1
5 5
7 "ò╥ÅWöjèⁿ"
23 0
5 5
7 "105"
23 1
5 6
7 "Import/Export"
23 0
5 6
7 "107"
23 1
5 7
7 "èGé╠î─é╤Åoé╡"
23 0
5 7
7 "141"
23 1
5 8
7 "╠º▓┘è╟ù¥"
23 0
5 8
7 "108"
23 1
5 9
7 "ò╢ÅæÅεò±"
23 0
5 9
7 "109"
23 1
5 10
7 "ò╢ÅæÅεò±╠¿░┘─▐û╝ò╧ìX"
23 0
5 10
7 "125"
23 1
5 11
7 "Links"
23 0
5 11
7 "115"
23 1
5 12
7 "ê╢û╝ê≤ìⁿ"
23 0
5 12
7 "110"
23 1
5 13
7 "ê≤ìⁿ"
23 0
5 13
7 "111"
23 1
5 14
7 "╠▀╪▌└É▌ÆΦ"
23 0
5 14
7 "112"
23 1
5 15
7 "▒╨╠▀█é╠ÅIù╣"
23 0
5 15
7 "113"
23 1
5 16
7 "╕▐┘░╠▀ò╢Åæ"
23 0
5 16
7 "146"
23 1
5 17
7 "î│é╔û▀é╖"
23 0
5 17
7 "151"
23 1
5 18
7 "É╪éΦĵéΦ"
23 0
5 18
7 "153"
23 1
5 19
7 "║╦▀░"
23 0
5 19
7 "154"
23 1
5 20
7 "ô\éΦòté»"
23 0
5 20
7 "155"
23 1
5 21
7 "Paste Link"
23 0
5 21
7 "157"
23 1
5 22
7 "ô·òtæ}ôⁿ"
23 0
5 22
7 "158"
23 1
5 23
7 "Footnotes"
23 0
5 23
7 "160"
23 1
5 24
7 "├▐╠½┘─"
23 0
5 24
7 "162"
23 1
5 25
7 "═▀░╝▐æSæ╠"
23 0
5 25
7 "201"
23 1
5 26
7 "ÄwÆΦ╗▓╜▐"
23 0
5 26
7 "202"
23 1
5 27
7 "òWÅÇ╗▓╜▐"
23 0
5 27
7 "203"
23 1
5 28
7 "ègæσ╗▓╜▐"
23 0
5 28
7 "204"
23 1
5 29
7 "î⌐èJé½"
23 0
5 29
7 "212"
23 1
5 30
7 "┌▓▒│─╙░─▐"
23 0
5 30
7 "210"
23 1
5 31
7 "─▐╫╠─╙░─▐"
23 0
5 31
7 "211"
23 1
5 32
7 "ò\Ī╡╠▀╝«▌"
23 0
5 32
7 "206"
23 1
5 33
7 "┘░╫░ò\Ī"
23 0
5 33
7 "207"
23 1
5 34
7 "╜╧░─▒▓║▌ö±ò\Ī"
23 0
5 34
7 "109"
23 1
5 35
7 "ê╢û╝ê≤ìⁿ"
23 0
5 35
7 "237"
23 1
5 36
7 "╠½▌─"
23 0
5 36
7 "251"
23 1
5 37
7 "ò╢ÄÜæ╡éª"
23 0
5 37
7 "263"
23 1
5 38
7 "ìsè╘èu"
23 0
5 38
7 "252"
23 1
5 39
7 "òWÅÇ"
23 0
5 39
7 "253"
23 1
5 40
7 "æ╛ÄÜ"
23 0
5 40
7 "254"
23 1
5 41
7 "Ä╬æ╠"
23 0
5 41
7 "255"
23 1
5 42
7 "ë║Éⁿ"
23 0
5 42
7 "256"
23 1
5 43
7 "ÆPîΩë║Éⁿ"
23 0
5 43
7 "256"
23 1
5 44
7 "æσò╢ÄÜ/żò╢ÄÜ"
23 0
5 44
7 "264"
23 1
5 45
7 "ô┴ÄΩæ«É½"
23 0
5 45
7 "258"
23 1
5 46
7 "ÉVïK╜└▓┘ì∞ɼ"
23 0
5 46
7 "301"
23 1
5 47
7 "╜└▓┘ÅCÉ│"
23 0
5 47
7 "302"
23 1
5 48
7 "ò╩╜└▓┘╝░─Ägùp"
23 0
5 48
7 "304"
23 1
5 49
7 "╜└▓┘╝░─ò█æ╢"
23 0
5 49
7 "305"
23 1
5 50
7 "╜└▓┘è╟ù¥"
23 0
5 50
7 "303"
23 1
5 51
7 "╜└▓┘æIæ≡"
23 0
5 51
7 "306"
23 1
5 52
7 "╜└▓┘╬▐»╕╜ò\Ī"
23 0
5 52
7 "307"
23 1
5 53
7 "═▀░╝▐┌▓▒│─æ}ôⁿ"
23 0
5 53
7 "351"
23 1
5 54
7 "═▀░╝▐┌▓▒│─ÅCÉ│"
23 0
5 54
7 "352"
23 1
5 55
7 "═»└▐/╠»└"
23 0
5 55
7 "360"
23 1
5 56
7 "Tab Ruler"
23 0
5 56
7 "355"
23 1
5 57
7 "═▀░╝▐ö╘ìå"
23 0
5 57
7 "356"
23 1
5 58
7 "ìsö╘ìå"
23 0
5 58
7 "359"
23 1
5 59
7 "ëⁿìÇ"
23 0
5 59
7 "357"
23 1
5 60
7 "ÉVïKÿgì∞ɼ"
23 0
5 60
7 "409"
23 1
5 61
7 "ÿg┌▓▒│─ÅCÉ│"
23 0
5 61
7 "402"
23 1
5 62
7 "É}î`╗▓╜▐"
23 0
5 62
7 "403"
23 1
5 63
7 "▓╥░╝▐Åêù¥"
23 0
5 63
7 "410"
23 1
5 64
7 "╝▐¼▌╠▀"
23 0
5 64
7 "452"
23 1
5 65
7 "îƒì⌡é╞Æuè╖"
23 0
5 65
7 "451"
23 1
5 66
7 "╜═▀┘┴¬»╕"
23 0
5 66
7 "453"
23 1
5 67
7 "╝┐░╫╜"
23 0
5 67
7 "455"
23 1
5 68
7 "ÆZò╢"
23 0
5 68
7 "467"
23 1
5 69
7 "ò└é╫æ╓éª"
23 0
5 69
7 "456"
23 1
5 70
7 "û┌ă/ì⌡ê°"
23 0
5 70
7 "465"
23 1
5 71
7 "ò\"
23 0
5 71
7 "457"
23 1
5 72
7 "╥╙"
23 0
5 72
7 "282"
23 1
5 73
7 "ì╖é╡ì₧é▌╠¿░┘─▐æ}ôⁿ"
23 0
5 73
7 "182"
23 1
5 74
7 "ò╢ÅæÅεò±╠¿░┘─▐æ}ôⁿ"
23 0
5 74
7 "183"
23 1
5 75
7 "╩▀▄░╠¿░┘─▐æ}ôⁿ"
23 0
5 75
7 "568"
23 1
5 76
7 "╩▀▄░╠¿░┘─▐ìXÉV"
23 0
5 76
7 "571"
23 1
5 77
7 "æSæ╠ìXÉV"
23 0
5 77
7 "267"
23 1
5 78
7 "ă╩▀▄░╠¿░┘─▐"
23 0
5 78
7 "569"
23 1
5 79
7 "æO╩▀▄░╠¿░┘─▐"
23 0
5 79
7 "570"
23 1
5 80
7 "ì⌡ê°ôoÿ^"
23 0
5 80
7 "180"
23 1
5 81
7 "ÆZò╢ôoÿ^"
23 0
5 81
7 "199"
23 1
5 82
7 "ÅCÉ│ïLÿ^"
23 0
5 82
7 "187"
23 1
5 83
7 "╠▐█»╕ë╗"
23 0
5 83
7 "188"
23 1
5 84
7 "╩▓╠╚░╝«▌é╚é╡"
23 0
5 84
7 "189"
23 1
5 85
7 "ì╢æ╡éª"
23 0
5 85
7 "259"
23 1
5 86
7 "ëEæ╡éª"
23 0
5 86
7 "261"
23 1
5 87
7 "Æåë¢æ╡éª"
23 0
5 87
7 "260"
23 1
5 88
7 "ù╝Æ[æ╡éª"
23 0
5 88
7 "262"
23 1
5 89
7 "æσò╢ÄÜ"
23 0
5 89
7 "273"
23 1
5 90
7 "żò╢ÄÜ"
23 0
5 90
7 "287"
23 1
5 91
7 "ɵô¬æσò╢ÄÜ"
23 0
5 91
7 "288"
23 1
5 92
7 "żé│éóæσò╢ÄÜ"
23 0
5 92
7 "289"
23 1
5 93
7 "═▀░╝▐┌▓▒│─æ}ôⁿ"
23 0
5 93
7 "375"
23 1
5 94
7 "═▀░╝▐┌▓▒│─ìφÅ£"
23 0
5 94
7 "373"
23 1
5 95
7 "═▀░╝▐┌▓▒│─öjèⁿ"
23 0
5 95
7 "374"
23 1
5 96
7 "┘░╫░æ}ôⁿ"
23 0
5 96
7 "371"
23 1
5 97
7 "┘░╫░ìφÅ£"
23 0
5 97
7 "372"
23 1
5 98
7 "╧╕█Ä└ìs"
23 0
5 98
7 "502"
23 1
5 99
7 "╧╕█ïLÿ^"
23 0
5 99
7 "503"
23 1
5 100
7 "ϸەҏW"
23 0
5 100
7 "501"
23 1
5 101
7 "è╚ê╒ïLÿ^"
23 0
5 101
7 "505"
23 1
5 102
7 "è╚ê╒Ä└ìs"
23 0
5 102
7 "506"
23 1
5 103
7 "ïLìåé╠æ}ôⁿ"
23 0
5 103
7 "836"
23 1
5 104
7 "╠º╜─╠½░╧»─"
23 0
5 104
7 "246"
23 1
5 105
7 "═»└▐/╠»└"
23 0
5 105
7 "377"
23 1
5 106
7 "║▌─█░┘╩▀╚┘"
23 0
5 106
7 "601"
23 1
5 107
7 "Tab Ruler"
23 0
5 107
7 "810"
23 1
5 108
7 "Assign Macro To File"
23 0
5 108
7 "436"
23 1
5 109
7 "╕╪░▌╜╕╪░▌"
23 0
5 109
7 "233"
23 1
5 110
7 "╕╪░▌╜╕╪░▌╡╠▀╝«▌"
23 0
5 110
7 "234"
23 1
5 111
7 "ì⌡ê°ôoÿ^"
23 0
5 111
7 "180"
23 1
5 112
7 "û┌ăôoÿ^"
23 0
5 112
7 "835"
23 1
5 113
7 "├▐¿┌╕─╪"
23 0
5 113
7 "170"
23 1
0 296 0
0 789 ""
5 113
15
9
6 2
15
9
14 GetAmiPro
20 00000102
19 00000102
0 789 "Å¡é╡é¿é▄é┐é¡é╛é│éóüB"
0 296 1
0 31 8000 &0
0 296 0
0 789 ""
5 0
8 3
5 1
0 26 "." "funclst"
13
18 0
11 00000336
0 27 9000
13
8 4
5 1
8 3
6 1
6 3
18 2
12 00000275
10 00000336
5 1
6 3
3 0
8 3
10 00000200
6 4
6 3
22 0
18 0
11 00000323
10 00000336
10 00000242
6 3
15
9
6 2
15
9
14 AddToAutoexec
16 OpenAutoExec
6 6
5 0
18 1
11 00000181
0 6 "accel = {6}[13]"
0 6 "menuid = {2}[13]"
0 6 "macroname = ""{3}""[13]"
0 6 "OnKey(accel, menuid, macroname)"
5 0
6 0
18 1
11 00000883
0 642 "{0}"
13
8 0
0 6 "menuname = ""{0}""[13]"
0 6 "itemname = ""{1}""[13]"
5 0
6 2
18 1
11 00000570
0 6 "menuid = {2}[13]"
5 0
6 5
18 0
11 00000446
0 6 "AddmenuItem(1, {{menuname}, {{itemname}, {{menuid})"
10 00000557
6 5
5 1
3 1
8 5
0 6 "pos = {5}[13]"
0 6 "InsertMenuItem(1, {{menuname}, {{pos}, {{itemname}, {{menuid})"
10 00000883
0 6 "macroname = ""{3}""[13]"
0 6 "helptext = ""{4}""[13]"
5 0
6 5
18 0
11 00000748
0 6 "AddmenuItem(1, {{menuname}, {{itemname}, {{macroname}, {{helptext})"
10 00000883
6 5
5 1
3 1
8 5
0 6 "pos = {5}[13]"
0 6 "InsertMenuItem(1, {{menuname}, {{pos},"
0 6 " {{itemname}, {{macroname}, {{helptext})"
2 103 1
2 147 1
6 7
15
9
14 DelFromAutoexec
0 642 "{0}"
13
8 0
0 642 "{1}"
13
8 1
16 OpenAutoExec
0 6 "menuname = ""{0}""[13]"
0 6 "itemname = ""{1}""[13]"
0 6 "DeleteMenuItem(1, {{menuname}, {{itemname})"
2 103 1
2 147 1
6 2
15
9
14 OpenAutoExec
16 FindAutoExec
13
8 2
5 0
0 259 "{2}" "r"
13
0 805 &1 [X]
13
18 0
11 00000330
0 286 "AmiPro" "defstyle" "amipro.ini"
13
8 3
6 3
7 ""
18 0
11 00000208
7 "jdefault.sty"
8 3
2 101 1 "{3}" 0 0
0 6 "FUNCTION auto()[13]"
0 6 "END FUNCTION[13]"
0 6 "[16420]"
2 104 1 "{2}" 32 "" ""
10 00000363
0 260 "{1}"
2 102 1 "{2}" 1 ""
2 488 1 0 0 24576 "End function" ""
0 6 "[36]"
0 6 "[13]"
0 6 "[38]"
6 0
15
9
14 FindAutoExec
0 295
13
0 16 [X] "autoexec.smm"
13
8 2
5 0
0 259 "{2}" "r"
13
0 805 &1 [X]
13
18 0
11 00000317
0 268
13
0 16 [X] "autoexec.smm"
13
8 2
5 0
0 259 "{2}" "r"
13
0 805 &1 [X]
13
18 0
11 00000291
0 798
13
0 16 [X] "autoexec.smm"
13
8 2
10 00000304
0 260 "{1}"
10 00000330
0 260 "{1}"
6 2
15
9
6 0
15
9
14 LocateHmenu
0 284 "user,GetActiveWindow,H"
13
8 2
6 2
8 3
5 0
0 284 "user,GetParent,HH" "{2}"
13
0 805 &2 [X]
13
18 1
11 00000169
6 2
8 3
10 00000067
6 3
8 2
0 284 "user,GetMenu,HH" "{2}"
13
8 4
16 FindMenu "{4}" "{0}"
13
15
9
6 1
15
9
14 DelMenu
0 284 "user,GetActiveWindow,H"
13
8 2
6 2
8 3
5 0
0 284 "user,GetParent,HH" "{2}"
13
0 805 &2 [X]
13
18 1
11 00000165
6 2
8 3
10 00000063
6 3
8 2
0 284 "user,GetMenu,HH" "{2}"
13
8 4
5 0
16 FindMenu "{4}" "{0}"
13
0 805 &4 [X]
13
18 1
11 00000904
16 LoadTheBox "{4}" 9000
5 1
0 26 "." "DelMenu"
13
18 0
11 00000904
0 27 9000
13
8 6
0 808 0 "{6}" "("
13
8 7
6 7
5 0
18 0
11 00000471
0 14 "{6}"
13
8 7
10 00000491
6 7
5 1
3 1
8 7
0 284 "user,GetMenuItemCount,HH" "{4}"
13
5 1
3 1
8 8
5 0
8 9
6 8
6 9
18 2
12 00000635
10 00000794
5 1
6 9
3 0
8 9
10 00000560
0 284 "user,GetMenuString,HHHFHH" "{4}" "{9}" &5 80 1024
0 806 "{5}" "{7}"
13
0 806 "{6}" "{7}"
13
18 0
11 00000781
6 5
8 6
10 00000794
10 00000602
0 520 1 "{0}" "{6}"
0 2 "é▒é╠É▌ÆΦé≡ò█æ╢é╡é─éµéδé╡éóé┼é╖é⌐"
13
11 00000904
16 DelFromAutoExec "{0}" "{6}"
6 1
15
9
14 LoadTheBox
0 284 "user,GetMenuItemCount,HH" "{0}"
13
8 4
5 0
8 5
6 4
5 1
3 1
6 5
18 2
12 00000159
10 00000537
5 1
6 5
3 0
8 5
10 00000074
0 284 "user,GetMenuString,HHHFHH" "{0}" "{5}" &3 80 1024
5 0
0 14 "{3}"
13
18 5
11 00000473
0 15 "{3}" 2 1
13
0 40 [X]
13
8 6
0 806 "{3}" 1
13
7 "&"
18 1
6 6
5 49
18 5
6 6
5 57
18 3
0 15 "{3}" 3 1
13
7 " "
18 1
1 2
1 2
1 2
11 00000460
16 Rmctrl "{3}"
13
0 31 "{1}" [X]
10 00000524
0 31 "{1}" "------------------------------------"
10 00000126
6 2
15
9
14 FindMenu
0 284 "user,GetMenuItemCount,HH" "{0}"
13
8 4
5 0
8 5
6 4
5 1
3 1
6 5
18 2
12 00000157
10 00000319
5 1
6 5
3 0
8 5
10 00000072
0 284 "user,GetMenuString,HHHFHH" "{0}" "{5}" &3 80 1024
6 1
6 3
18 0
11 00000306
0 284 "user,GetSubMenu,HHH" "{0}" "{5}"
13
8 0
6 0
15
9
10 00000124
5 0
15
9
6 2
15
9
14 RmCtrl
0 39 30
13
0 808 0 "{0}" [X]
13
8 2
6 2
5 0
18 1
11 00000333
6 2
5 1
3 1
0 806 "{0}" [X]
13
8 3
0 265 "kanjimenu"
13
7 "roman"
18 0
11 00000254
6 2
5 1
3 0
0 15 "{0}" [X] 1
13
0 16 "{3}" [X] ")"
13
8 3
10 00000320
6 2
5 3
3 0
0 15 "{0}" [X] 1
13
0 16 "{3}" [X] ")"
13
8 3
10 00000343
6 0
8 3
6 3
15
9
6 1
15
9
DIALOG DelMenu
-2134376448 5 100 45 176 84 "" "" "╥╞¡░ìφÅ£"
FONT 8 "System"
130 3 40 13 1 1342242817 "button" "OK" 0
130 19 40 13 2 1342242816 "button" "╖¼▌╛┘" 0
6 29 56 8 1000 1342177280 "static" "╥╞¡░ìÇû┌(\036M\037╥):" 0
4 40 120 41 9000 1352728577 "listbox" "" 0
5 7 98 16 1001 1342177280 "static" "ìφÅ£é╖éΘ╥╞¡░ìÇû┌é≡æIæ≡é╡é─é¡é╛é│éó" 0
DIALOG PickMenu
-2134376448 6 90 45 200 73 "" "" "▒╨╠▀█é╠╢╜└╧▓╜▐"
FONT 8 "System"
6 8 56 8 1000 1342177280 "static" "╥╞¡░(\036M\037╥):" 0
4 17 61 50 9000 1352728577 "listbox" "" 0
148 2 44 13 2 1342242816 "button" "ÅIù╣(\036X\037╝)" 0
73 19 120 13 5 1342242816 "button" "▒╨╠▀█ï@ö\/╧╕█é╠Æ╟ë┴(\036A\037┬)..." 0
73 36 120 13 6 1342242816 "button" "╥╞¡░ìÇû┌ìφÅ£(\036D\037╗)..." 0
73 53 120 13 7 1342242816 "button" "╝«░─╢»─╖░(\036S\037╖)..." 0
DIALOG AddItem
-2134376448 20 39 24 260 104 "" "" "╥╞¡░ìÇû┌Æ╟ë┴"
FONT 8 "System"
5 15 82 8 1000 1342177282 "static" "╥╞¡░é╠û╝æOüi\036N\037┼):" 0
88 13 84 12 8000 1350631552 "edit" "" 0
5 28 82 8 1006 1342177282 "static" "Æ╝æOæ}ôⁿê╩Æu(\036I\037┐):" 0
88 26 84 56 9500 1344339971 "combobox" "" 0
5 55 86 41 20 1342177287 "button" "╝«░─╢»─╖░" 0
9 65 38 8 1007 1342177280 "static" "ôoÿ^╖░(\036K\037╖):" 0
8 76 18 12 8003 1350631552 "edit" "" 0
48 66 38 8 21 1342242819 "button" "&Control" 0
48 76 38 8 22 1342242819 "button" "&Shift" 0
48 86 38 8 23 1342242819 "button" "&Alt" 0
98 74 141 8 1001 1342177280 "static" "╧╕█é╠ï@ö\Éαû╛(\036D\037╛):" 0
98 84 138 12 8001 1350631552 "edit" "" 0
5 2 82 8 1002 1342177282 "static" "Æ╟ë┴é╖éΘ╥╞¡░:" 0
214 4 40 14 1 1342242817 "button" "OK" 0
214 21 40 14 2 1342242816 "button" "╖¼▌╛┘" 0
182 40 70 14 3 1342242816 "button" "▒╨╠▀█ï@ö\(\036F\037▒)..." 0
182 56 70 14 4 1342242816 "button" "╧╕█(\036M\037╧)..." 0
88 2 84 8 1003 1342177280 "static" "" 0
5 41 82 8 1004 1342177282 "static" "Æ╟ë┴é╖éΘï@ö\/╧╕█:" 0
88 41 84 8 1005 1342177280 "static" "" 0
DIALOG AddAccel
-2134376448 12 94 28 208 72 "" "" "╝«░─╢»─╖░é╠Æ╟ë┴"
FONT 8 "System"
162 3 40 13 1 1342242817 "button" "OK" 0
162 19 40 13 2 1342242816 "button" "╖¼▌╛┘" 0
128 35 74 13 3 1342242816 "button" "▒╨╠▀█ï@ö\(\036F\037▒)..." 0
128 51 74 13 4 1342242816 "button" "╧╕█(\036M\037╧)..." 0
6 13 90 43 20 1342177287 "button" "╝«░─╢»─╖░" 0
10 25 38 8 1007 1342177280 "static" "ôoÿ^╖░(\036K\037╖):" 0
13 36 18 11 8003 1350631552 "edit" "" 0
50 25 36 9 21 1342242819 "button" "&Control" 0
50 35 38 9 22 1342242819 "button" "&Shift" 0
50 45 38 9 23 1342242819 "button" "&Alt" 0
6 3 64 9 1004 1342177280 "static" "ï@ö\/╧╕█:" 0
74 3 80 9 1005 1342177280 "static" "text" 0
DIALOG MacroLst
-2134376448 6 110 29 154 89 "" "" "╧╕█Æ╟ë┴"
FONT 8 "System"
8 16 60 11 8001 1350631552 "edit" "" 0
8 32 60 53 9001 1352728579 "listbox" "" 0
72 37 74 8 7999 1342177280 "static" "" 0
106 3 40 13 1 1342242817 "button" "OK" 0
106 19 40 13 2 1342242816 "button" "╖¼▌╛┘" 0
8 6 68 8 1001 1342177280 "static" "Ä└ìsé╖éΘ╧╕█(\036M\037╧):" 0
DIALOG FuncLst
-2134376448 4 114 28 158 67 "" "" "ï@ö\Æ╟ë┴"
FONT 8 "System"
6 4 66 8 1000 1342177280 "static" "▒╨╠▀█ï@ö\(\036F\037▒):" 0
6 16 100 45 9000 1352728579 "listbox" "" 0
112 4 40 13 1 1342242817 "button" "OK" 0
112 22 40 13 2 1342242816 "button" "╖¼▌╛┘" 0
00048734